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SUMMARY OF VOLUME 2 


The computations for three different noise mechanisms 

- mean rotor wake, inlet turbulence, and rotor wake turbulence 

- described in Volume 1 of this report are coded as three 
separate computer program, "packages.” This arrangement was 
deemed reasonable because of differences in the required 
input data (e.g., rotor vs stator geometries), because of 
interest an the role of each separate noise mechanism, and 
for economy of execution during parametric studies. The 
computer codes are described by means of block diagrams, 
tables of data and variables, and example program executions. 
Reference to Volume 1 will be made via equation or figure 
number. FORTRAN listings of the programs appear in the 
appendix to Volume 2. 
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CHAPTER 1 

MEAN ROTOR WAKE PROGRAM 


The computer program described in Fig. 1* computes the 
sound power of each propagating mode for the first three 
harmonics of the blade passage frequency. The data required 
to run the program and the program results are described in 
Table 1.* Important FORTRAN variables used in the program 
are given in Table 2. Function subroutines utilized in the 
program are described in Table 3- 

The terminal output from a sample execution of the Mean 
Rotor Wake Program is shown in Table 4 for the rotor/stator 
data provided by NASA Lewis. The mean flow velocity entering 
the stator is specified from measured data. The pressure 
amplitude and sound poncr of each mode for each harmonic 
number of the blade passage frequency are listed. Note that 
for a propagating mode (m,n) at harmonic s, another mode 
(-m,n) of ecual amplitude propagates with frequency -s. 

Thus toe total sound power for the mode shape vlm|, n) at 
frequency ls|x (blade passage frequency) is the sum of the 
two components. 


<*Note : Because of the number and complexity of the figures 

and tables, they have been collected at the end of each 
section of this volume. The 9 text figures and 12 tables 
appear before the appendix. 
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CHAPTER 2 


TURBULENCE PROGRAMS 


The calculations for two ^ypes of turoulence noise are 
considerably more time-consuming than for the tones of the 
mean-wake interaction because 1) all modes that are not cut 
off by the duct may be excited, l.e., there is no selection 
rule, as is the case for the mean-wake interaction, and 2) 
the noise is broadband rather than tonal, requiring the sound 
power at many frequencies to be calculated. For these reasons, 
the turbulence programs are each broken into two subsections. 
The method used is, first, to calculate and store, for a 
given number of blade radii, the pressure distributions 
across the rotor blades or stator vanes at a small number 
of frequencies over the range of Interest. The power 
spectral density is essentially a spatial integral containing 
the pressure distribution and acoustic mode shape as factors 
in the integrand. The pressure distributions are slowly 
varying functions of frequency and duct radius when compared 
with the acoustic mode shapes. Thus it is reasonable to 
interpolate the pressure distribution for a specific fre- 
quency and radius fro*<i a look-up table of stored pressure 
values. All other variables that change with radius (or 
frequency) are calculated explicitly for that given radius 
(frequency). In this manner, convergence of the radial 
Integration is Improved by using more integration steps 
than there are stored pressure values. The pressure distri- 
butions are stored in binary form in a disc file for later 
use so that, for example, turbulence parameter values may 
be varied without recomputing the pressures. 


2.1 Inlet Turbulence Program 

The pressure distributions across the rotor blades are 
computed and stored as described in Fig. 2. The sound power 
calculation is diagrammed in Fig. 3- Input and output data 
for the programs are listed in Table 5. Additional program 
variables of possible Interest to the user are given in 
Table 6. 



Output from sample executions of the two program sections 
is shown In Tables 7 and 8. The input data relating to rotor 
geometry and performance are first entered as listed in Table 
7. The pressure distributions are computed (as evidenced 
by the error code returned from LEQTIC; see Table 3), and the 
data are stored on a disc. The power spectral density for 
all propagating modes at a frequency of 15 times shaft rate 
(blade passage frequency in this 15-blade fan) is then 
computed, and the results are given in Table 8. 


2.2 Rotor Wake Turbulence Program 

The two-stage method of calculation described above is 
repeated for the Rotor Wake Turbulence problem. The calcu- 
lation of pressure distributions across the stator vanes 
proceeds as shown In Pig, ■4. The sound power calculation 
is explained in Pig. 5- Input and output data for the 
programs are listed in Table 9* Additional program variables 
are given in Table 10. 

The output from sample program executions is shown in 
Tables IJ and 12. The mean flow into the stator may be 
specified as for the Mean Wake case. (Note that he print- 
out shown in Table J2 has been stripped of all messages other 
than the power spectral density per mode to minimize the 
amount of paper delivered for high frequencies (many modes). 

The standard program version would contain diagnostic messages, 
cut-off ratios, etc., as for Table 8. 
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CHAPTER 3 




EXECUTION PARAMETERS AND PROGRAM LIMITATIONS 


A. General Remarks 

1. Specifying blade or vane geometries; Geometrical data 
are stored In matrix VGEOM. The number of radial positions 
at which data may be specified (NDAT) is presently limited 

to 10 by DIMENSION statements. This limitation may be lifted 
by increasing the size of VGEOM in all main and subprograms . 

The geometrical data are specified by proceeding radially 
from hub to tip, and must include these two end points. 

These data are linearly interpolated for integration stations 
between the data points. 

2. Specifying mean flow distributions: Variable IVOR is 

a switch controlling whether a free vortex distribution 
(IV0R=0) or input data (IV0R=1) are used in stator calcula- 
tions. Input data are stored in matrix VELOCV. The number 
of radial positions at which data are specified (NVELO) is 
presently limited to 10. This limitation may be lifted by 
increasing the size of VELOCV in all main and subprograms . 

The velocity data are specified by proceeding radially from 
hub to tip and must include these two endpoints . These data 
are also linearly interpolated for intermediate points in 
the radial integration. 

3. Specifying Bessel function accuracies: The absolute 

accuracies for all Bessel function calculations (EB) and root 
convergence (EC) have been left as input parameters. Values 
of 0.001 and 0.0001, respectively, have been sufficient for 
these calculations - 

4. Specifying the number of chordwlse integration points: 
The number of chordwlse integration points (NCHORD) is an 
input variable. DIMENSION statements currently limit the 
value of NCHORD to 20 in all programs. A value of 8 has 
yielded sufficient accuracy in the cases checked to date. 
Execution time increases radically for increases in NCHORD, 

so its value should be minimized. For cases where the acoustic 
wavelength is considerably less than the blade or stator 
chord, it may be necessary to increase NCHORD beyond 8. 

If NCHORD must be increased beyond 20, the following array 
sizes must be inspected and/or increased: CASCET, PHASE, 

DELTAP, F, A, WA, and B. 
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5. Specifying the number of radial integration points: 
The number of radial Integration points v‘<RAD in Mean Wake, 
or WKADWU in the turbjlence programs) is an Input variable. 
The value must be large enough to achieve convergence of the 
result, yet small enough io minimize program execution time. 
A value of 7 has yielded ade-:;uate accuracy (±1 dB) for the 
acoustic power levels in cases checked to date. The value 
of 20 must not be exf'eedcd without inspecting and/or 
increasing the sizes of arrays PSISTO, BJ, RR, RRNU, and 
V a^CBT . 


B. Turbulence Prcgrams 

1. Specifying the number of radial positions for pressure 

calculations: Both turbulence programs compute and store 

pressure distributions at a number (NRAD) of radial positions. 
Acoustic calculations are later performed by using NRADNU 
(->-NRAD) integration points. This arrangement minimizes the 
execution time needed for pressure calculations while main- 
taining good accuracy in the radial Integral. NRAD values 

of 5 have been used for the test cases cited here. NRAD 
may not be Increased beyond 20 without violating DIMENSION 
statements, as discussed in Sec. A.5- 

2. Range of Mode Number m: The turbulence programs that 

compute power spectral densities contain a summation of 
autocorrelatlo.n functions that vary with mode number m. If 
the annular duct/turbofan arrangement were to allow propaga- 
tion of modes with mode number jm| greater than 49 at a given 
frequency, then program execution would be terminated with 

an error message. This range may be increased by Increasing 
the size of arrays ISUMTC and SUMTOT and by changing the 
decision value in the associated IF statement. 

3. Selection of frequency values for data storage: The 

turbulence programs compute and store pressure distributions 
for a range of frequencies for later interpolation. The 
most useful frequencies to calculate in the subject spectrum 
of, for example, from 1 to 3 times the blade passage frequency 
(B?F), are probably the first, second, and third harmonics 

of BPF. This range is straightforwardly specified for the 
wake turbulence program. An important qualification to this- 
procedure must be Invoked for Inflow turbulence, as explained 
below. 
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The sound power calculations for the inflow turbulence 
routine require pressure distribution data fc” frequencies 
up to an equivalent frequency 

(<uV«) = (“/^)max‘^l%ax! “sum, 

where highest frequency of interest, is 

the largest value of m which can propagate at frequency (w/Q), 
and = "l^max^ some integer I such that 

0< m„,,^ <B-1, for B=number of rotor blades. Thus, be /ore 

computing the pressure distribution, the user must know what 
modes can propagate for the turbofan under discussion. The 
utility program MAPIN/MAPPER (see appendix) will yield the 
propagating modes for a given geometry, frequency, and 
turbofan speed. As an example, suppose that the turbulence 
noise soectrum between BPF and 3BPF is desired for NASA 
Rotor 55 with the operating conditions: Number of blades = 

15, = 0.503, M * 0 . 323 , and = O.^iS^i. Pressure data 

will be needed from the lowest frequency of Interest 

(co/n = BPF = 15) to the highest equivalent frequency (u’^/n). 

Program MAPIN/MAPPER reveals that jm I = 21 for (oj/J2) = 

ITIcl X 

3BPP » H 5 . Thus, 

(»»/!!) - 

(o)»/n) * 45 + 21 + 9 = 75, 
where m^.,„ = -21-t-{2’15) = 9- 

s uim 

In the example, (u*/Q) conveniently falls at the fifth 
multiple of blade passage frequency (5BPF) or o)/0=75* The 
frequency range for pressure distribution calculations is 
then from (u)/Jl)®15 to (u/(J) = 75 in steps of (o)/£2) = 15. 

The results of calculations for that case are shown in 
Table 7« If programs INSRCH/INTURB were to be executed 
without pressure data of sufficiently high equivalent fre- 
quency, the program execution would be terminated with an 
error message. 
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ii. DIMENSION of storage matrix GASCET: Pressure dlstrl 

butinns are stored on t'le uisc in matrix CASCET. It is 
desirable to keep this matrix as small as possible to mini- 
mize core and disc file requirement... The DIMENSION of 
CASCET should therefore be adjusted as follows to suit the 
data; DIMENSION CASCET (NCHORD, NRAD, NBLADE, PRaNGE), 
where NCHORD = number of chordwise integration points, 

NRAD * number of rad.ial positions for pressure calculations 
NB.OADE * number of rotor blades, or, for the Rotor Wake 
Turbulence Program, use NVANE = number of stator vanes. 
FRANCE = number of frequencies for pressure calculatior.s . 



0 



FIGURES 


I 


8 



Calculate the sound power of each propagating mode fur the 
first 3 r>3rmonics of the blade passage frequency. 



Figure 1. 


Block Diagraiii of Mean 


Rotor Wake Program 
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A. Calculate pressure distributions across the rotor 
blades and store data on the disk. 



Figure 2. 


Block Diagram of Inlet Turbulence Program; 
Part A: Data Storage 


10 




B. Calculate the pc «r spectral density of each propagating mode 
at a given frequency and the total PSD for all modes. 



Figure 3. 


Block Diagram of Inlet Turbulence Program; 
Part B: Noise Calculation 
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A. Calculate pressure distributions across the stator vanes 
and store data on the disk. 



Figure 4. 


Block Diagram of Rotor Wake Turbulence Program; 
Part A: Data Storage 
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B. Calculate the power spectral density of each propagating 
mode at a given frequency and the total PSD for all modes. 





Figure 5. 


Block Diagram of Rotor Wake Turbulence Program; 
Part B: Noise Calculation 
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CIRCUMFERENTIAL DISTANCE i'( ) 


Figure 8. Typical Wake Profile 
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VANE AXIS 

MEAN CHORD 


Figure 9. Schematic Diagram of the Stator Vane Mean 

Chord at the Instant When the Wake Centerline 
Intersects the Leading Edge 
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TABLE 1. INPUT/OUTPUT DATA FOR THE MEAN ROTOR WAKE PROGRAM 

This program calculates the complex modal amplitude and the modal 
sound power generated by the interaction of the mean rotor wakes 
with the stator vanes. All input and output data are nondimensional 
The input data consist of geometric, performance, and computational 
parameters . 


A. Geometric Data 



FORTRAN 



FORTRAN 



NAME 

SYMBOL 

VARIABLE 

VARIABLE 

TYPE 

1. 

NBLADE 

B 

No. of rotor blades 

Integer 


2. 

NVAi^E 

V 

No. of stator vanes 

Integer 


3. 

SIGMAR 


Ratio of hub radius to duct radius 

Floating 

Point 

4. 

SIGMAC 


Ratio of tip chord of stator vane 

Floating 

Point 




to duct radius 



5. 

LXO 


Flatio of rotor-stator spacing to 
duct radius 

Floating 

Point 

6. 



Vector of data for a number, NDAT 
(an integer variable) of stator 
vane radii 



a. 

R 

r 

Nondimensional radius • ^^^duct 

Floating 

Point 

b. 

C 

c 

Nondimensional vane chord ■ ^^^tip 

Floating 

Point 

c. 

ALPHAS 


Vane angle (degrees) 

Floating 

Point 

d. 

YS^ 


Nonradlal variation of stator 






leading edge ■ ^s^*^tlp 

Floating 

Point 

e. 

YR^ 


Nonradlal variation of rotor 





trailing edge ■ ^p/^tip 

Floating 

Point 

f. 



Axial variation of stator leading 

Floating 

Point 




edge - Xg/c^^p 



g* 

XR^* 


Axial variation of rotor trailing 

Floating 

Point 


edge - Xp/c^^p 

•See Figure 6 
••See Flgur#* 7 
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lABLE 1 


(Cont. ) 


^r- p/iGf IS 
^ QiJALtTY 




Performance Data ^ 





K/‘r ^'AW 

SVMBOL 


FORTRAN 
VARIABLE TYPE 



1. 

MT 


?: ' Mach number 

Floating Point 



2. 

MA 

M 

Aj'ial flow Mach number 

Floating Point 


- 

3. 

IVOR 


for rotor wake specification 
0 for free vortex distribution 
• 1 for specified Input velocity 
distribution 

Integer 



U. 



(for IVOR * 1) Vector of data for a 
number, NVELO, (an integer variable) 
of vane radii 


1 



R 

XVEL 

f 

Vyfm 

Vxm 

a. Nondiraenslonal radius 

b. Ratio of circumferential velocity 
CO axial flow velocity of the 
mv^an wake (See Fig. 9) 

Floating Point 
Floating Point 



5. 

IVJV 


(for IVOR » 0) Ratio of circumfer- 
ential velocity at the duct radius 
to the axial flow velocity 

Floating Point 

• 


6. 

WIDTH 

6/h 

Ratio of wake half-width to wake 
spacing (See Fig. 8) 

Floating Point 



7. 

VELDEF 

Wmax/U 

Ratio of maximum wake velocity 

Floating Point 


to the atreamwlse flow 
velocity (assumed constant with 
radius). (See Fig. 8) 
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TABLE 1 . (Cont.) 


C« Computational Data 

These data set the numOer of Intcccratlon stations In the chordwise 
and spanwise directlrns (ard, indirectly, the accuracy of the results). 
The required accuracy for the Bessel functions used in the mode shape 
and 2 igenva]ue routines are also specified. 



FORTRAN 

NAME 

VARIABLE 

FORTRAN 
VARIABLE TfPE 

1. 

NRAD 

No. of integration stations in he 
radial direction (odd number) 

Integer 

2. 

NCHORD 

No. of integration stations in the 
chirdvlse direction (even number) 

Integer 

3. 

EB 

Absolute accuracy of al\ Bes&el 
function calculations 

Floating Point 

it. 

EC 

Absolute accuracy of convergence to 
root of eigenvalue equation 

Floating Point 


Program Output 


The output lists the complex nondlmenslonal press^^e amplitude for 
each propagating mode. The amplitude is nondimenslonallzed by the 
dynamic pressure of the mean axial flow p^U^/2. Also given is the 

relative modal sound power level. To recover the conventional sound 
power level (dB re 10“^^ wa^t) add 


10 log^o 


8 - 10 ‘^» 


to the computed relative power. This step is required because all 
computations performed In the program are nondlmenslonal with absolute 
values of p^, c , and unknown. 



TABLE 2. IMPORTANT INTERNAL PROGRAM VARIABLES 
MEAN ROTOR WAKE PROGRAM 

(Used In addition to the INPUT/OUTPUT variables.) 


FORTRAN 

NAHE 

SYMBi 

AMN« 

^m,n 

BMN« 

®m,n 

AR3» 

K n 

m^n 

B» 

D 

BETASQ* 

0" 

DELTA? 

Ap 

DELTAR* 

Ar 

GAMKA 

r 

GMNS* 

Y 

’m,n 

HI 

h 

1 

H2 

h 

2 

IER«, 

lERPSl 

- 

IR» 

- 

12* 

- 

KMNS« 

K n 

m,n 


VARIABLE 


Weighting factors of mode shape • A J +B Y 

ni,n m m,n in 


Argument of the mode snape function 
Nondlmenslonal vane semi-chord » 

1-M^, where M is the axial flow Mach no. 


Nondlmenslonal complex pressure along vane chord 
Discrete radial interval for integration 


Nondimcr«lonai wave number of the convected gust 


Hcndimenslonal acfa.'^ie wavenumber for moving 
medium (See. Eq. .. jf Vol. 1) 

Nondimensional stator vane spacing in direction 
parallel to vane (See Fig. B-1 of**Vol. 1) 

Nondiii.-*nsional stator vane spacing in direction 
perpendicular to vane (See Fig. B-1 of 1) 

Error codes from Bessel function subroutines 


Counter for integration stations in radial 
direction 

Counter for integration stations in chordwise 
direction 

Nondlmenslonal acoustic wavenumber ■ vs « 

(See Eq. 88 of Vol. 1) 
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TABLE 2. 

(Cont. ) 
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KX 

‘'x 

Wondimensional gust avenumber in the axial 
direction 


MM« 

m 

Circumferential mode number 


MR 


Relative Mach number of mean wake (vector sum 
of rotational and axial components) 


MYM 

- 

Relative circumferential Mach no. of mean wake 
at r. 


NN» 

n 

Radial mode number 


PMNS 

- 

Sum of terms comprising the radial integral 


PSI», 

if 

Nondlmenslonal radial moae shape as a function 


OR P3IST0* 

of radius 


QMNS 

- 

Sum of terms comprising the chordw.* se Integral 


R« 

r 

Nondlmenslonal radius ■ r/r . . 

QUCt 


RELPRL 

- 

Relative modal sound power level at harmonic s 


REPLWR, 

SPWR 

- 

Relative modal sound power at harmonic s 

E 

SB 

s5 

Product of harmonic number and no. of blades 

»! 

SS 

s 

Harmonic number (« 1 , 2 , 3 ) multiple of the rotor 
blade passage frequency 

- 

VH 

w 

Complex nondlmenslonal amplitude of gust velocity 
impinging on stator vane 


WHTC 

■“ 

Weighting factor for Simpson Integration method 
used In chordwise integral 


XMN» 

Nondlmensional root of duct eigenvalue equation 
m.n duet (see Eij . 6 of Vol. 1) 


•These 

variables are 

also used In the Inlet and wake turbulence programs. 


but are 

listed here 

only. 
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TABLE 3. 


UTILITY SUBROUTINES 


origin AL 
OF POOR 




A. Subroutines common to the Mean Wake, Inlet, and Wake Turbulence 
programs . 


1. ANRT (ANnular RooT), ANFU (ANnular FUnctlon), ISIGN 

Programs find the roots ic^ ^ of the boundary value equation 
fcr the annular duct: 


m,n 


^duct^ ^hub^ * ^hub^ ^duct ^ ^ 

2- Fi-SJ, B£SY (BESsel ronctlons of the first [J] and the second 
Li'] kind) 

BESJ computes the mth order Bessel function of the first kind, 
Jm(x) . 

BESY computes the mth order Bessel function of the second kind, 
Ym(x) . 

An error code is returned along with each answer. The error 
code is: 

ERR • 0 Ko error (answer is correct to given accuracy) 

"1 m was negative (must be ^0) 

« 2 Argument was negative (must be >C) 

■ 3 Required accuracy not obtained 

■ ^ Range of n compared to the argument was not correct 

(see program listing). 


EIGEN 

The program normalises the weighting factors A, 
in the mode function. 


^ and B„ „ used 
m,n m,n 


m, n m 


J_ 4 B 


Y_. 


m, n m 


The orthogonality condition Is 

(r 


/ 


'if. 4 

i,J ni,n 


m,n if i ■ m and J ■ n 
0 otherwise 


The normalising condition used is that 

r. 


m,n 


m,n 


w(r 


■ i (non-dimensional). 


duct 


hub 




-A • 
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t 


•) 


TABLE 3. (Cont.) 




4 . RMODE 

Program computes the radial mode shape ^ for the m, nth mode 
of the annular duct. (See Eq. 4 of Vol, 1) 

5 . KERNEL 

Program computes the kernel for the Green’s function formulation 
of the cascade routine. (See Eqs. B-25 and B-26 of Vol. 1) 

Used in conjunction with PRES or CASC. 

B. Subroutine used specifically for the Mean Wake Routine 

1. PRES (PRESsure distribution) 

The program specifies the complex pressure distribution across 
the stator vane chord as produced by a velocity gust. The input 
parameters include the gust wavenumber, the wake velocity, and 
the stator vane spaclngs. 

C. Subroutines used specifically for the Inlet Turbulence Routine 

1. SCALLX (SCALe Length, X direction) 

Program yields the turbulence length scale in the axial direction 
as a function of radial position. The routine is actually a 
program input whereby a particular turbulence distribution is 
loaded. 

2. SCALLR (SCALe Length, Radial direction) 

Program yields the turbulence length scale in the radial direction 
as a function of radial position. The routine is an input 
parameter. 

3. STHETA (Scale length, META direction) 

Program yields the turbulence length scal^ in the circumferential 
direction as a function of radial position. The routine is an 
input parameter. 

4. EPSD (Cp) 

Program yields the inlet RMS turbulence intensity as a function 
of radial position. The routine is an input parameter. 

5. PHITHH (Jg) 

The program computes the Fourier transform of the correlation 
function in the circumferential direction. Thi^i transform is 
usually a fairly simple analytic function such as an exponen- 
tial. 
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TABLE 3 


(Cont. ) 


iJ'GJNAL PAGC f3 
OF POOR QUALITY 


6. PHIXHT ($^) 

The program computes the Fourier transform of the correlation 
function In the axial direction. 

D. SuDrcutlnes used for the Inlet and Wake Turbulence Routines 
1. CASC (CASCade functlcr*/ 

The program calculates the complex pres?5ure distribution *wss 
a blade chord as produced by & velocity gust. The input para- 
meters include the gust wavenumber, the velocity, and the 

blade spaclngs. This program Is a version of PRES (listen above) 
specialized for use with the extended range of arguments 
the turbulence routines. 

E. Subroutine used specifically for tne Wake Turbulence Routine 
1. FHAT (f) 

The program computes the Fourier transform of the modulating 
function for the turbulent wake. The transform is usually 
a simple analytic function depending on the turbulence model 
in use. 

F. IMSL Library Subroutine called by Subroutine KERNEL 

IMSL Library routine LEQTIC Is called by KERNEL to solve a set of 
simultaneous equations. The documentation provided by IMSL follows 
on the next three pages. 
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TABLE 3. (Cont.) DESCRIPTION OF IMSL LIBRARY ROUTINE LEQTIC. 


IMSL ROUTINE NAME - LEQTIC 


PURPOSE 


LINEAR EQUATION SOLUTION - COMPLEX MATRIX - 
SPACE ECONOMIZER SOLUTION 


OSAGE 


CALL LEQTIC (A,N,IA,B,M,IB,IJOB,WA,IER) 


ARGUMENTS A 


N 

lA 


B 


M 

IB 


I JOB 


WA 

lER 


INPUT COMPLEX N BY N MATRIX CONTAINING THE 
COMPLEX COEFFICIENTS OF THE EQUATION AX - B. 

ON OUTPUT, A CONTAINS THE L-U DECOMPOSITION OF 
A ROWWISE PERMUTATION OF THE INPUT MATRIX A. 

ORDER OF MATRIX A. (INPUT) 

ROW DIMENSION OF MATRIX A EXACTLY AS 

SPECIFIED IN THE DIMENSION STATEMENT IN THE 
CALLING PROGRAM. (INPUT) 

INPUT COMPLEX N BY M MATRIX CONTAINING THE 
t COIttLEX valued RIGHT HAND SIDES OF THE 
EQUATION AX > B. 

or’ OUTPUT, THE SOLUTION MATRIX X REPLACES B. 

IF ITOB-1, B IS NOT USED. 

NUMBER OF RIGHT HAND SIDES (COLUMNS IN B) . 
(INPUT) 

ROW DIMENSION OF MATRIX B EXACTLY AS SPECIFIED 
IN THE DIMENSION STATEMENT IN THE CALLING 
PROGRAM. (I -PUT) 

INPUT COTTON x-ARAMETER. IJOB-I IMPLIES WHEN 
I-O, FACTOR THE MATRIX AND SOLVE THE 
EQUATION AX-B. 

I-l, FACTOR THE MATRIX A. 

1-2, SOLVE THE EQUATION AX«B. THIS 

OPTION IMPLIES THAT LEQTIC HAS ALREADY 
BEEN GMUED USING IJOB-0 OR 1 SO THAT 
THE MATRIX HAS ALREADY BEEN FACTORED. IN 
THIS CASE OUTPUT MATRIX A MUST HAVE BEEN 
SAVED FOR REUSE IN THE CALL TO LEQTIC. 

WORK AREA OF LENGTH N CONTAINING THE PIVOT 
INDICES. 

ERROR PARAMETER. (OUTPUT) 

TERMINAL ERROR 

IER-129 INDICAIES THAT MATRIX A IS 
ALGORITHMICALLY SINGULAR. (SEE THE 
CHAPTER L PRELUDE.) 


PRECISION/HARDWARE - SINGLE AMD DOUBLE/H32 

- SINGL£/H36,H48,H60 


REQD. IMSL ROUTINES > UERTST, UGETIO 

NOTATION - INFORMATTON ON SPECIAL NOTATION AND 

CONVENTIONS IS AVAILABLE IN THE MANUAL 
INTRODUCTION OR THROUGH IMSL ROUTINE UHELP 


REMARKS 1. WHO) 1J0B«1, ARGUMENTS B, M AND IB ARE NOT USED BY 
LEQTIC. 

2. INPUT MATRIX A IS DESTROYED WHEN IJOB-0 OR 1. WHEN 
IJOB-0 OR 2, B IS REPLACED WITH THE SOLUTION X. 
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TABLE 3. (Cont.) DESCRIPTION OF IMSL LIBRARY ROUTINE LEQTIC. 


3. LEQTIC CAN BE USED TO COMPUTE THE INVERSE OF A COMPLEX 
MATRIX • THIS IS DONE BY CALLING LEQTIC WITH M«N, 

B»THE N BY N IDENTITY MATRIX AND IJOB-0. WHEN N IS 
LARGE, IT MAY BE MORE PRACTICAL TO COMPUTE THE INVERSE 
A COLUMN AT A TIME. TO DO THIS, FIRST CALL LEQTIC WITH 
IJOB*l TO FACTOR A. MAKE SUCCEEDING CALLS WITH M-1, B 
-A COLUMN OF THE IDENTITY MATRIX AND IJOB*2. D WILL BE 
REPLACED BY THE CORRESPONDING COLUMN OF A INVERSE. 

4 - THE DETERMINANT OF A CAN BE COMPUTED AFTER LEQTIC HAS 
BZEH CALLED AS FOLLOWS 

DET - (1,0,0.0) 

DO 5 I » 1,N 
IPVT • WA(I) 

IF (IPVT .NE. I) DET - -DET 
DET « DET*A(I,I) 

5 CONTINUE 

Algorithm 

For a given N by N complex matrix A and an N by M complex matrix B, 
LEQTIC computes an LU decomposition of a rowwise permutation of A and 
solves the system of equations AX-B. Row equilibration and partial 
pivoting are used. 

See reference: 

Forsythe, George and Moler, Cleve B,, Computer Solution of Linear 
Algebraic Systems , Prentice-Hall, Inc, , liiglVwood Cliffs, New Jersey, 


Example 


This example shows how-to solve a system of 3 equations in 3 unknowns 
using LEQTIC. 

The equations are 

(l.+i3.)X{l) + (2.5-i3.5)X(2) + (l.+i)X{3) - (l.-i2.) 

(6.+i2.)X(l) + (-4.-»-i3. )X(2) - (3.-i4.) 

(5.-i) X(l) + (l.+i) X(2) + (3.+i3.)X(3) - (5.-i6.) 

and the unknowns are X(1),X(2), and X(3) . 

In this case, N-3 (A is 3 by 3), and M«l. (B is 3 by 1, one right hand 
side) • 

Input: 

INTEGER N, IA,M, IB, I JOB, lER 
COMPLEX A(3,3),B(3) 

REAL WA(3) 

lA - 3 
IB « 3 
N * 3 
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TABLE 3. (Cont.) DESCRIPTION OF IMSL LIBRARY ROUTINE LEQTlC. 





(l.,3.) 

(2. 5, -3. 5) 

(l.,l.) 

A * 

(6. ,2.) 

(-4.,J. ) 

(0.,0.) 


(S.,-1.) 

(l.,l.) 

(3. ,3.) 


M • 1 


( 1 . ,« 2 .) 

B • (3., -4.) 

(5., -6.) 

ZJOB«0 

CALL LEQTlC (A,M, lA, B,M, IB, IJOB, WA, ZER) 
END 

Output: 

ZER - 0 

(-.32881, -.68795) 

B - (-.48127, -.53729) 

( .90092, -1.5177) 

Hence the solution is 

XU) ■ -.32881 -iO. 68795 
X(2) • -.48127 -iO. 55729 
X(3) • .90092 -il.5177 







TABLE 4. SAMPLE EXECUTION OF THE MEAN ROTOR WAKE PROGRAM 
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NVANE* 11 
NSLADE» 

15 

NBLADE= 15 

HUB RADIUS DIVIDED BT DUCT RADIUS ~ 

.484 

SIG«AR= 0.48400000E+00 

VANE TIP CHORD DIVIDED BT DUCT RADIUS = 

.408 

SIGNAC* 0.40800000E+00 
LXO * 

.6201 

LXO= 0.4201 OOOOE+OO 
NDAT » 

7 

NDAT= 7 

VANE GEOHETRY MATRIX INPUT 

FEED NATRIX IN ONE ROW AT A TINE, FROM HUB TO TIP 

ROW* 1 R/RDUCT - 

.484 

C/CTIP = 

1 . 

ALPHAS (DEGREES)* 

16.3 

YS/CTIP * 

0 . 

YR/CTIP = 

0 . 

xs/rrip = 

0 . 

XR/CTIP * 

0 . 

ROU= 2 R/RDUCT * 

.56 

C/CTIP = 

1 . 

ALPHAS (DEGREES)* 

15.67 
YS/CTIP = 

.027 

YR/CTIP * 

-.033 
XS/CTIP = 

-.001 

XR/CTIP = 

-.02 
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ROU= 3 R/RIiuCT = 
.739 

L/C TIP = 

1 . 

alphas ( degrees )= 

14.07 
YS/CTIP = 

.093 

YR/CTIP = 

-.118 
XS/CTIP s 
-.005 
XR/CTIP = 

-.057 

R0U= 4 R/RDUCT = 
.92 

C/C TIP = 

1 . 

alphas (0E6REES)= 

12.57 

YS/CTIP = 

.158 

YR/CTIP = 

-.213 
XS/CTIP = 

-.008 
XR/CTIP = 

-.073 

ROU= 5 R/rducT = 
. 94(3 

C/CTIP = 

1 . 

alphas (DEGREES): 

12.36 
YS/CTIP = 

.163 

YR/CIIP = 

-.226 
XS/CTIP s 
-.008 
XR/CriP = 

-.07 

'’00= 6 R/RDUCT s 
.973 

C/CTIP = 

1 . 
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0 


f 4 i 


rr'T'ri- r 

■A' 


ALPHAS (DEGREES)^ 

12.15 
YS-'CTIP = 

. i :'2 

YR/CTIP = 

-.242 
XS/CTIP = 

-.009 
XR/CTIP = 

-.067 

R0U= 7 R/RDUCT = 

1 . 

C/CTIP = 

1 . 

ALPHAS (DEGREES): 

11.92 
YS/CTIP = 

.187 

YR/C”IP = 

-.262 
XS/CTIP = 

-.009 
XR/CTIP = 

-.064 

VANE GEOMETRY MATRIX IS 

0.1S4E+00 0.100E+01 0.284E<-00 O.OOOE+OO O.OOOE+OO O.OOOE+OO O.OOOE+OO 
0.560E+00 0.100E+01 0.273E+00 0. 270E-01-0 .330E-01-0.1 0OE-O2-O.2O0E-O1 
0.739E+00 0.100E+01 0.246E+00 0. 930E-01 -0.1 18E+00-0.500E-02-0.570E-01 
0.920E+00 0.100E+01 0.219E+00 0. 1 S8E*00-0. 21 3E+00-0 .800E-02-0 .730E-01 
0.946E+00 0.100E+01 0.216E+00 0. 163E*00-0.226E+00-0.800E-02-0.700E-OI 
0.973E+00 0.100E+01 0.212E+00 0. 177E+00-0.242E+00-0.900E-02-0.670E-01 
0.100E+01 0.100E+01 0.208E+00 0. 1 87EtOO-C .262E+00-0.900E-02-0 .640E-01 
TYPE 1 TO INPUT ROTOR FLOU VELOCITY, 0 FOR FREE VORTEX 
1 

IVOR= 1 

f. NUMBER OF RADII FOR SPECIFYING MEAN ROTOR FLOU= 

8 

NVELO= 8 

INPUT MATRIX FOR MEAN ROTOR FLOU 
FEED MATRIX IN ONE ROU AT A TIME, FROM HUB TO TIP 

j ROU* 1 R/RDUCT* 

I .484 

MEAN CIRCUMFERENTIAL VELOCITY RATIO* 

.808 

ROW* 2 R/RDUCT* 

.533 
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MEAN CIRCUMFERENTIAL V£l OCITT RATI0 = 

7or-» 

• / UtJ 

R0U= 3 R/RDUCTs 
.612 

MEAN CIRCUMFERENTIAL VELOCITY RATI0= 
.734 

ROW* 4 R/RDUCT= 

.834 

MEAN CIRCUMFERENTIAL VELOCITr RATI0= 
.712 

ROU= 5 R/RDUCT* 

.918 

MEAN CIRCUMFERENTIAL VELOCITY RATIO= 

.686 

R0U= 6 R/RDUCT= 

.946 

MEAN CIRCUMFERENTIAL VELOCITY RATIO* 
. 686 

RCU= 7 R/kDUCT* 

.<?74 

MEAN CIRCUMFERENTIAL VELOCITY RATIO* 
.713 

ROW* 8 R^RDUCT* 

t . 

MEAN CIPCOMFERENTIAL VELOCITY RATIO* 
.713 

MEAN ROTOR FLOW VELOCITY MATRIX IS 
.4840E+00 .8080E+00 
.5330E+00 .7880E+00 
.6120E+00 .7840E+00 
.8340E+00 .7120E+00 
.9180E+00 .6880E+00 
.946CE+00 .6860E*00 
.9740E+00 .7130C+00 
.1000E+01 .7130E+00 
MT = 

.508 

MT* 0.50800000E*00 
MA * 

. 323 

MA * 0.32300000E+00 

WAKE UIIiTri s 

.172 

UUIPTH* O.I7200000E+00 

MAX VEL DEFICIT DIVIDED lY UBAR 

.27 

VELDEF* 0.27000000E*00 


33 


-A ^ - 



^Lont . ) 



TABLE 




if 


’TV 



NUMBER OF RADIAL STATIONS = 

/' 

NRAIi= 7 

NUMBER OF CHORDOISE STATIONS = 

8 

NCH0RD= 8 

ACCURACY OF BESSEL FN = 

. 0O1 

F.B^ O.IOOOOOOOE-02 

ACCURACY OF CONVERGENCE TO ROOT XMN = 

.0001 

EC= 0.10000000E-03 
S = 3 

>«N(«AY) FOR PROPA8ATION = O.24154718E+02 
L'FFSAFR Floating underflow PC= i115 

TirRSAPR Floating underflow PC* 6163 


hCBE DATA 

S = 3 H = 1 N = 1 XtiN = 0.13709056E+01 

CUTOFF RATIO FOR NODE* .1762E+02 

3Uh OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XMN = 0 

ANN = 0.15152305E+01 BMN * -0. 421 1 9466E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BMN CALC *00000000 

M = 1 N = 

ERROR CODE FROH 
ERROR CODE FROM 
ERROR CODE FROM 
ERROR CODE FROM 
ERROR CODE FROM 
ERROR CODE FROM 
ERROR CODE FROM 

UPSTREAM 

GAMMA rt.N,SB = 0.33725477E+02 

MODE AMPLITUDE = 0. 136 1 1387E-03 0. 33358998E-04 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR HODE(BB)* >0.7364E+02 

DOUNSTREAM 

GAMMA M,N,SB = -0. 1 7237771E+02 
MODE AMPLITUDE * -0 .4737894 IE-04 -0. 72085580E-05 
SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR NODELIB)* -0.7715E+02 


1 S = 3 

INVERSION ROUTINE* 0 
INVERSION ROUTINE* } 
INVERSION ROUTINE* 0 
INVERSION ROUTINE* 0 
INVERSION ROUTINE* 0 
INVERSION ROUTINE* 0 
INVERSION ROUTINE* 0 
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H= -1 N= 1 S= -3 
UPSTREAM 

RELATIVE SOUND POUtR LEVEL FOR ♦'ODE (HD)* -0.7364E+02 

DOUNSTREAH 

RELATIVE SOUND POWER LEVEL FOR rtODEvDt)* -0.771 5E+02 
NODE DATA 

S = 3 M = 1 N = 2 XMrl = 0.o3?00327E+01 

CUTOFF RATIO FOR f10tiE= .378GE+01 

SUM OP BESSEL FUNCTION ERROR CODES = C 

ERROR CODE FOR CONVERGENCE TO ROOT X«N = 0 

ANN * 0.19356938E+01 BMN = 0.32269858E+01 

ERROR CODE FOR BESSEL FNS IN AMN AND B«N CALC =00000000 

rt= 1 N= 2 S= 3 


UPSTREAM 

GAMMA M,N,SB = O.32857319E+02 

MODE AMPLITUDE = -0. 1 1 049067E-03 -O.915O3578E-04 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.7351E+02 


DOWNSTREAM 

GAMMA M,N,SB = -0. 1 636961 4E+02 

MODE AMPLITUDE = 0.5o242548E-04 0. 263o4856E-04 ' 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE<'DB)= -0.7519E*02 

(1= -1 N= 2 S= -3 

UPSTREAM 

RELATIVE SOUND POWER LEVEL FJF liODE(DB)= -0.7351E+02 


DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.7519E+02 


MODE DATA 

3=3 M = 1 N - 3 XHN » 0.1 272461 2E+02 

CUTOFF RATIO FOR MODE* .1960E* 4 

SUM OF BESSEL FUNCTION ERROR DDES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XMN = 0 

ANN - C.43514410E+01 BMN = 0. 30726765£*01 

ERROR CODE FOR DESSEL FNS IN AMN AND BMN CALC =00000000 
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& 

M = 1 H = 3 S = 3 

UPSTREAM 

GAMMA H,N,SB = 0.30194i05E+02 f 

filiHE AMPLITyPE = -0.A7274867E-04 -0 .8?81 7303E-06 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE<,DB)= -O.8936E+02 

LlOUNSTREAM 

GAMMA H,N,SB = -0. 1 37065??E+O2 

flODE AMPLITUDE = 0.39056430E-04 0.46102P40E-04 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE! DP)* -0.7634E+02 

-1 N= 3 S» -3 

UPSTREAM 

RELATIVE SOUND PO'lER LEVEL FOR MODE(DB)* -0.8036E+02 
DOWNSTREAM 

RELATIVE SOUND POUER LEVEL FOR MODE(JB)= -0.7434E+C2 
MODE DATA 

S=3 M=1 N=4 XMN= 0.1836227^E*O2 

CUTOFF RATIO FOR MODE* .I31SE+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XMN = 0 

AMN s 0.6138175IE+01 BMN = 0,221 1697IE+01 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC = 0 0 0 0 0 0 0 0 

M* 1 N= 4 S= 3 

UPSTREAM 

GAMMA M,N,3B * 0.24325B92E+A2 

MODE AMPLITUDE = 0.881 I9635E-06 0.55164443E-06 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -O.1I73E+03 

DOUNSTREAM 

GAMMA M,N,SB = -0.83381 859E+01 

MODE AMPLITUDE = 0. 1 045806 1 £-04 0 .451 72844E-04 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MO»E<DB)= -0.8064E+02 
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«= -J N= * S= -3 
UPSTREAM 

RELATIVE SOUND POWER LEUEL FOR rtO»£(DB)= -V.1I73F^03 
DOUNSTREAM 

RELATIVE SOUNC POUER LEVEL FOR MOO£(DB)= -0.8064E+02 
LARGEST FFOFAGATING N FOR THIS M = 4 

nODE DATA 

S= 3 N =-10 N= 1 XNN = 0.11769701E+02 

CUTOFF RATIO FOR MOPE= .2052E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XMN = 0 

AHN = 0.54757755E+01 BMN = -0, 30348594E-02 

ERROR CODE FOR BESSEL FNS IN ANN AND BtIH CALC = 0 0 0 0 0 0 0 0 

M = -1v N = 1 S = 3 

UPSTREAM 

GAMMA M,N,SB = 0. 3053 1 741 E+02 

MODE •■^PLITUDE = -0. 90896823E-04 0.41207877E-04 

SUM Or ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MOOE(DB)= -0.7490E+02 


DOUNSTREAM 

GAMMA M,N,SB = -0. 14044O35E+O2 

MDDE AMPLITUDE = -0. 4474 1 460E-03 -0.25779423E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE<DB)= -0.J498E+02 


M= 10 N= 1 S= -3 
UPSTREAM 

RELATIVE SOUND POUER LEVEL FOR HODE(DB)= -0.7490E+02 
DOUNSTREAM 

RELATIVE SOUND POUER LEVEL FOR MQDE(DB)= -0.5498E+02 


MOU DATA 


3=3 M =-10 N = 2 XMN = 0 . 16348282E+02 

CUTOFF RATIO FOR «ODE= .1478E+01 

SUM OF PESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XMN * 0 

AMN = 0.48044727E+01 BMN = -0.3769407iE*00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC =00000000 
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rt=-10 N= 2 S= 3 
ijPSTREAf! 

l3Ar,flA .%K,SB = 0.27032509E+02 

tiCLE AftFLITUDE = 0.3621 3808E-04 0 . 1 3233067E-O4 

I'Uft OF ALL ERRORS IN FSI CALCULATIONS = 0 

KEcAT:-;e SCUWO FOUER level for H0KE(DB)= -0.8559E+02 

20UNSTREAN 

GAfinA rt.N.S'- = -0.I0544803E+O2 

rtCOt AflFLI UDE = 0.541 ?0*25£-03 0.25744I46E-03 

SUr OF ALL ERRORS IN PSI CALCULATIONS = 0 

Pt.ATIVE SOUND POUER LEVEL FOR HODE(DB)= -0.5754E+02 

h- 10 N= 2 S= -3 

UPSTREAN 

RELATIVE SOUND POUER LEVEL FOR MOPE(DB)= -0.8S59E+02 
UOUNSTREAN 

RELATIVE SOUND POUER LEVEL FOR MOOE(DB)= -0.5754E+02 
MODE DATA 

S = 3 H =-10 N = 3 XMN = 0 .1 971 0760E+02 

CUTOFF RATIO FOR HOD£= .1225E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XMU » 0 

AHN = 0.4S357S06E+01 BMN = -0.21 469782E+01 

ERROR CODE FOR BESSEL FNS IN ANN AND BMN CALC =00000000 

M = -10 N = 3 S = 3 

UPSTREAM 

GAMMA M,N,SB = O.2299657SE+02 

MODE AMPLITUDE = 0.509I2282E-05 0.44796741E-04 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.84'’2E+02 

DOUNSTREAM 

GAMMA N,N,SB = -0,650886t8E*01 

MODE AMPLITUDE = -0.32015H8E-03 -0.56725690E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DB}= -0.5344E+02 
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M* to N= 3 S» -3 
UPSTREAM 

RELATIVE SOUND POUER LEUEL FOR MOr'E(r’E)= -0.8492E+02 
DOWNSTREAM 

RELATIVE SOUND POUER LEVEL FOR MOPE>'JB)= -0.5844E+02 
MODE DATA 


S = 3 M =-10 N = 4 XhH • 0.2358364OE+O2 

CUTOFF RATIO FOR M0n£= .1024EtO1 

SUM OF PESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XMN = 0 

AMN = 0.426S203:E+01 FMN = -0. 98372497E+00 

ERROR CODE FOR PESSEL FNS IN AfIN AND BMN CALC = 0 0 0 0 0 0 0 0 


rt = -10 N = 4 S = 3 

UPSTREAM 

GAMMA M,N,SB = 0. ! 37364'^1 E+02 

rtCDE AMPLITUDE = - 0. 5011 0743E-03 -0 .291 30448E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MaD£(BBI= -0.6413E+02 


DOUNSTREAM 

GAMMA M,N,SB = 0.275C71 46E+01 

MCDE AMPLITUDE = - 0 . 341 58767E-03 0 . 85520260E-03 

SUM Cr ALL EPPOPS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DEH= -0.6090E+02 


f1= 10 N= 4 S^ -3 

UPSTREAM 

RELATIVE SOUND POUER LEVEL FOR NOOE(DB)= -0.6613E+02 
DCUNSTPEAM 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.6090E+02 
LARGEST PROPAGATING N FOR THIS « = 4 


NODE DATA 


3=3 M = 12 » = 1 XMN = 0.13878411E+02 

CUTOFF RATIO FOR MODE= .1740E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT X«N = 0 

m"N = 0.60892918E + 0I PMN = -0.6371 1 792E-03 

E. .OR CODE FOR BESSEL FNS IN ANN AND BMN CALC =00000000 
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rt = 12 N = 1 

UPSTREAM 
UiinriH n,W,S6 = 0.2''1 33072E+0^ 

rtCI'E AMPLITUDE = 0.8869671 1 E-04 0 . 15‘987079E-05 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.7808E+02 


ORIGINAL PAjt 

OF poor? Q'/.A^ ry 


S = 3 


DOUNSTREAN 

GAMMA H,N,SB = -0 . 1 2645347E+0'’ 

MODE AMPLITUDE = 0. 950474 I5E-04 0 . 45870526E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.3892E+02 

11 = -12 .\’= 1 S= -3 


UPSTREAM 

RELATIVE SOUND POWER LEUEL FOR HDDE(DP)= -0.780SE+02 
DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR hODE(DD)= -v.SE^rE+OO 


MODE DATA 


S*3 M=12 N=2 XrtN* 0 . 1 871 366cC*02 

CUTOFF RATIO FOR MODE= .12712+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XMN = 0 

Af!N = 0.5361 9937E + 01 BMN = -0, 12842323E+0O 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 


M = 12 N = 2 S = 3 

UPSTREAM 

GAMMA M,N,SB = 0 .2 A38 1 333E ^02 

MODE AMPLITUDE = 0 .31 973551E-03 -0.6/991251E-O4 

sun OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)» -O.6745E+02 

DOWNSTREAM 

GAMMA M,N,SF = -0.73936267E+01 
MODE AMPLITUDE = 0 . M232207E-O3 -0 . 40642054E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND ROWER LEVEL FOR MOI'E(JB) = 


^0 


-0.6I46E*02 



TABLE 4. (Cont.) 


ORIGINAL PAQ2 IS 
O' POOR QUALITY 




M-- -12 N= 2 S= -3 

UPSTREAM 

RELATIVE SOUND P'OUER LEVEL FOR «ODE(8B)= -0.6745E+02 

DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR HODE<BB)= -0.6M6E+02 
MODE DATA 

S=3 M = 12 N=3 XMII= 0.22297030Et02 

CO'CFF RATIO FOR MODE= .1083E+01 

SUM OF FESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVER6ENCE TO ROOT XMN = 0 

AflN = 0.50662H1E + 01 8f1N = -0. 14574338E+01 

ERROR CODE FOR BESSEL FNS IN ANN AND BMN CALC =00000000 

f1=12N=3S=3 

UPSTREAM 

GAMMA M,N,SB = 0 . 1 80593i8E+02 

MODE AMPLITUDE = -0 .382P3325E-03 -0.15305489E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DE'= -0.6096E+02 

DOWNSTREAM 

GAMMA M,N,SB = -0. 1 571 6621 E^OI - 

MODE AMPLITUDE = -0 . 1 1 03881 3E-02 0. 4171 1 1 75E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -O.5569E+02 

M= -12 N= 3 S= -3 

UPSTREAM 

RELATIVE SOUND POUER LEVEL FOR «ODE(JB)= -0.6496E+02 
DOWNSTREAM 

RELATIVE SOUND POUER LEVEL FOR NOOE<HB;= -0.5569E+O2 
LARGEST PROPAGATING N FOR THIS M = 3 

MODE DATA 

S = 3 M =-21 N = 1 XMN = 0.23254819E+O2 

CUTOFF RATIO FOR MODE= .1039E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XMN = 0 

ANN = 0.85042393E+01 DMN = -0.381 16337E-05 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 
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( Cont . ) 


uri.3;WAL PAG* 

OF POOR QUALfTY 


(1 = -21 N = 1 S = 3 

UPSTREAM 

UArtrtA M,N,SF = 0.:5145542E+02 

flODE AMPLITUDE = 0 . 43U5623E-03 -0.10433352E-02 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR rtOOE(JB)= -O.5832E+02 


DOUNSTREAM 

GAMMA M,N,SB = 0. 1 342) 442E+01 

NODE AMPLITUDE = -0 . 1 8827030E-02 0 .30355092E-02 

SUM OF ALL ERRORS IN PSI CALCULATIONS - 0 

RELATIVE SOUND POUER LEVEL FOR NODE(kR)=- -O.4'?6E+02 

21 N= 1 S» -3 


UPSTREAM 

RELATIVE SOUND POUER LEVEL FOR MODE<l)BI= -0.5882E+O2 
DOUNSTREAM 

RELATIVE SOUND POUER LEVEL FOR MODE(BB)= -0.4796E+02 

LARGEST PROPAGATING N FOR THIS h = 1 

NO MORE' PROPAGATING AODES FOR THIS VALUE OF S 


S = 2 

XHN(MAX) FOR PROPAGATION = 0. 161 031 46E+02 

NODE DATA 


S = 2 M = -3 A = 1 XMN = 0.39866274E+0) 

CUTOFF RATIO FOR MODE= .4039E+01 

SUM OF BESSEL FUNCTION ERROR COOES = 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XAN = 0 

ANN = 0.26023450E+01 8HN = -0. 32589376E+00 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 

M = -3 N * 1 S = 2 

ERROR CODE FROM INVERSION ROUTINE* 0 
ERROR CODE FROM INVERSION ROUTINE* 0 
ERROR CODE FROM INVERSION ROUTINE* 0 
ERROR CODE FROM INVERSION ROUTINE* 0 
ERROR CODE FROM INVERSION ROUTINE* » 

ERROR CODE FROM INVERSION ROUTINE* t 
ERROR CODE FROM INVERSION ROUTINE* 0 
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ORIGINAL PAGE IS 
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UPSTREAM 

GArtrtA M,N,SP = C.2J981453E+02 

nODE AMPLITUDE - 0.13524694E-03 -0 . 11 43848VC-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR HOD£(JB)= -0.7U7E+02 


nOUNSTREAM 

GAMMA M,N,SB = -0. 1 0989599E+02 

MODE AMPLITUDE = -0 .12497451E-04 -0. 25469007E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MOIi£{JB)= -0.6288E+02 

f1= 3 N= 1 S= -2 


UPSTREAM 

RELATIVE SOUND POWER LEVEL FOR . MODE (DB )= -0.7167E+02 

DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.4288E+02 


NODE DATA 


S = 2 M = -3 N = 2 XHN = 0. 77467003E+01 

CUTOFF RATIO FOR MOD£= .2079E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

AMN = 0.35705322E+01 BMN = -0.8<55m62E+00 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 

rt=-3 N= 2 S= 2 


UPSTREAM 

GAMMA M,N,SB = 0. 2041 2827E+02 

NODE AMPLITUDE = *0. 62938I54E-L 0. 18019367E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR NODE(DB)= -0.7126E+02 

DOWNSTREAM 

GAMMA M,N,SB = -0.94210234E+01 

MODE AMPLITUDE = -0. 56493354E-03 0.30607513E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= *O.5564E+02 


^3 
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3 N= 2 S» -2 
UPSTREAM 

RELATIVE SOUNH POUEfi LEVEL FOR M0DE(DB)= -0.7I26E+O2 
DCUNSTREAM 

RELATIVE SOUMr POWER lEVEL FOR MOOE(DB)= -0.5566E+02 
flOHE TATA 

S = 2 H = -3 M = 3 X«N s 0.13008803E+02 

CUTOFF RATIO FOR nODE.= J238E+01 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CCNVER5ENCE TO ROOT XfIN ^ 0 

AMN = -0.18754296E+V0 BMN = 0.53089865E+01 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 


M = -3 N = 3 S = 2 

UPSTREAM 

GAMMA M,N,3B = 0. 15524623E+02 

MODE AMPLITUDE = -C .B7384578E-05 -0. 13593062E-03 

sun OF ALL ERRORS )N PSI CALCULATIONS » 0 

RELATIVE SOUND POULR LEVEL FOR MODE(DB)= -O.7526E+02 


DOWNSTREAM 

GAMMA M,N,SB = -0.453281 F5E+0I 

mode amplitude = 0.50005592E-03 0. 24067449E-03 

sun OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.5971E+02 

h= 3 N= 3 S= -2 

UPSTREAM 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.7526E*O2 


DCUNSTREAM 

RELATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.5971E+02 


LARGEST PROPAGATING N FOR THIS M = 3 


MODE DATA 


S=2 M=8 N»l XMN= 0.964131077+01 

CUTOFF RATIO FOR MODE= .U70E+0I 

SUM OF BESSEL FUNCTION ERROR COOES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XMN = 0 

ANN » 0.48101923E+01 BMN = -0 . 1 4625735E-01 

ERROR CODE FOP BESSEL FNS IN AMN AND DMN CALC =00000000 
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M= 8 N= t S= 2 
UPSTREAM 

GAMMA M,N,SB = 0. 1 91 24322E+02 

MODE AMPLITUDE = -0. 1 571 0J55E-02 0 . 39986281 E-02 

SOM OF ALL ERRORS IN PSI CALCULATIONS * 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DED= -O.M-HE+02 


DOWNSTREAM 

GAMMA M,N,SB = -0.81 325 1 79E+01 

MODE AMPLITUDE = 0.66a97707E-03 -0 . 40581 EOOE-04 

SOM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.5598E+02 

rt= -8 N= 1 S= -2 

UPSTREAM 

RELATIVE SOUND F’OWER LEVEL FOR MCDE(DD)=^ -0.4444E+02 


DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR MCDE^'DE-i)= -0.5598E+02 


M3IE DATA 


S = 2 M = 8 N = 2 XHN = 0 .1 386279 1E+02 

CUTOFF RATIO FCF, nODF= .11<:.2E + 01 

SUM OF BESSEL FUNCTION ERROR CODES =•■ 0 

ERROR CODE FOR C0NVER6CNCE TO ROOT XHN = 0 

ANN = 0.41234860E+01 BMN = -0. 85984376E+00 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 

M = 8 N = 2 S = 2 

UPSTREAM 

GAMMA M,N,SB = 0. 1 415351 1 E+02 

MODE AMPLITUDE = -0. 5C227789E-02 -0 . 460S6625E-02 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FCR n01:E(DE:)= -0.4172E+O2 

DOWNSTREAM 

aaMMA M,fJ,SB = -0.31O17076E + 01 

MODE AMPLITUDE = -0. 1 S33395'?£ -02 -0 . 37698765E-03 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.5006E+02 
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-8 N= 2 S= -2 
UPSTREAM 

RELATIVE SOUND POWER LEVEL FOR M0DE(DB)= -0.4I72E+02 
DOUNSTREAM 

RELATIVE SOUND POWER LEVEL FOR M0I:E(DB)= -0.5006E+02 
LARGEST PROPAGATING N FOR THIT « ^ 2 

MODE DATA 

S = 2 M =-14 d = 1 XHN = 0.15975402E+02 

CUTOFF RATIO FOR nODE= .1008E+01 

SOM OF BESSEL FUNCTIOu ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN = 0 

AflN = u.46c.^58?5£+01 DMN = -0. 1 0554524E-03 

ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC =00000000 

h = -14 N = 1 S = 2 

UPSTREAM 

L-iMMA h,N,SB = O.763485r0E+01 

MODE amplitude = -0. 1 52?9Sr2E-01 0.33717128E-01 

EJM OF ALL ERKCr;? IN PSI CALCULATIONS = 0 

RELATIVE SCUND POWER LE'-'EL FOR MODE(DB)= -0.3212E+02 

DOWNSTREAM 

GAMMA M,N,SB = 0. 33569469E+01 

MODE amplitude = 0.13S80878E-01 0. 28533771 E-01 

SL',-, OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -O.3279E+02 

M= 14 N= 1 S= -2 

UPSTREAM 

RE..ATIVE SOUND POUER LEVEL FOR MODE(DB)= -0.3212E+02 
DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR MO»E(DB)= -0.3279E+02 

LARGEST PROPAGATING N FOR THIS N = 1 

NJ MORE PROPAGATING MODES FOR THIS VALUE Oh S 

S = 1 

XHN(MAX) FOR PROPAGATION = 0.8051 5728E+01 
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MODE DATA 

S = 1 M = 4 K = 1 XMN = O.51995376E+01 

CUTOFF RATIO FOR M0DE= .1549E*0! 

SUM OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONUEROENCE TO ROOT XMN = 0 

AMN = 0.31336383E+01 E-tMN = -0.2093087^E+00 

ERROR CODE FOR BESSEL FHS IN AMN AND BMN CALC =00000000 


M = 4 N = r S = 1 

ERROR CODE FROM INVERSION ROUTINE= 0 
ERROR CODE FROM INVERSION ROUTINE= 0 
ERROR CODE FROM INVERSION ROUTINE^ 0 
ERROR CODE FROM INVERSION ROUTINE= 0 
ERROR CODE FROM INVERSION ROUTINE^ 0 
ERROR CODE FROM INVERSION ROUTINE= 0 
ERROR CODE FROM INVERSION ROUTINE^ 0 

UPSTREAM 

gamma M,N,SB = 0.92437007E+OI 

MODE AMPLITUDE = -0.UO22921E-O1 -0.12244703E-01 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUND POWER LEVEL FOR MOHEdB)* -C.3113E+02 


DOWNSTREAM 

GAMMA M,N,3B = -0.374779g?E+01 

MODE AMPLITUDE = -0 .1 071 4520E-02 0 .23857642E-02 

SUN OF ALL ERRORS IN PSI CALCULATIONS = 0 

RELATIVE SOUNT POWER LEVEL FOR MODE (US )= -0.4450E+02 

M= -4 N= 1 S= -1 

UPSTREAM 

RELATIVE SOUND POWER LEVEL FOR MODE(DB)= -0.511 3E*02 


DOWNSTREAM 

RELATIVE SOUND POWER LEVEL FOR MODC(DE^= -0.4450E+02 


LARGEST PROPAGATING N FOR THIS M = 
NO MORE PROPAGAIING MODES FOR THIS 
PROBLEM COMPLETED 

RELATIVE POWER LEVEL UPSTREAM S= 1 
RELATIVE POWER LEVEL UPSTREAM S= 2 
RELATIVE POWER LE'-'LL UPSTREAM S= 3 
RELATIVE POWER LEVEL DOWNSTREAM S* 
RELATIVE POWER LEVEL DOWNSTREAM S= 
RELATIVE POWER LEVEL DOWNSTREAM S= 
STOP 


1 

VALUE OF S 


-O.28T2E+02 

-0.2843E+02 

-0.5381E+02 

1 -0.4149E+02 

2 -0.2964E+02 

3 -0.4253E+02 


ELAPSED TIME: 20:51.21 
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CPU TIME: 4:39.68 
EXIT. 
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INPUT/OUTPUT DATA FOR THE INLET TURBULENCE PROGRAMS 


This program calculates the modal power spectral density for noise 
generated by a turbofan rotor subjected to inlet turbulence. All 
input and output data are nondimensional . The input variables are 
defined in order to para3.1el as closely as possible the variables 
used in the Mean Wake Program. The input data consist of geometric, 
performance, turbulence, and computational parameters. 








A. 

Geometric 

: Data 





FORTRAN 

NAME 

SYMBOL 

VARIABLE 

FORTRAN 

VARIABLE 

TYPE 

1. 

NBLADE 

B 

No. of rotor blades 

Integer 


2. 

SIGMAR 


Ratio of hub ndlus to ducc radius 

Floating 

Point 

3. 

SIGMAC 


Ratio of cio chord '’-f' rotor blade 
to duct radius 

Floating 

Point 




Vector of data for a number, NDAT 
(an integer variable) of rotor blade 
radii 



a. 

R 

r 

Nondimensional radius ■ r/r , 

duct 

Floating 

Point 

b. 

C 

c 

Nondimensional blade chord* c/c. 

tip 

Floating 

Point 

c . 

CHI 

X 

Blade angle (degrees) [See Fig. 3 
of Vol. 1] 

Floating 

Point 

B, 

Performance Data 





FORTRAN 

NAME 

SYMBOL 

VARIABLE 

fortran 

VARIABLE 

TYPE 

1. 

MT 


Tip Mach number 

Floating 

Point 

2. 

MA 

M 

Axial flow Mach number 

Floating 

Point 

3. 


Frequency range lata; Pressure distributions 
are calculated and stored for the range of 
frequencies from PSTART to PEND In steps of 
PSTEP. These data are Interpolated for calcu- 
lations at the frequency of Interest OMEGA. 
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a* 

b. 

c. 

d. 

C. 

1 . 

2 . 

3. 


5. (Cont.) 


ORIGINAL PAG£ 

OF POOR QUALITY 


FORTRAN 

NAME SYMBOL VARIABLE 


FORTRAN 
VARIABLE TYPE 


PSTART 


PEND 

PSTEP 

OMEGA 


First frequ'..^ ■ for pressure calcula- Integer 
tlon. Mu' c be a. -integer multiple of 
shaft fr,quency. 

(Usuall: NBLADE) 


Final frequency for pressure calcu- Intege'' 
latlon* See text for description of 
value required. 

Frequency step size in pressure Integer 

calculat.i on. (Usually » NBLADE) 


Noise frequency of Interest Floating Point 

(nondimensicnalized on the rotor 
shaft frequency) 


Turbulence Data 

The inlet turbulence data are loaded into separate function subroutines. 
This arrangement allows rather complicated radial distributions of 


turbulence to be 

modeled. 

FORTRAN 
: UNCTION 
NAME 

SYMBOL 

VARIABLL 

SCALLX 

£,(f) 

Axial turbulence length scale (nondlmenslonallzed on 
the duct radius) as a function of nondlmenslonallzed 
radius.* 

SCALLR 

L^(T) 

Radial tu: julence length s;ale (nondlmenslonallzed o.. 
the duct radius) as a function of nondlmenslona ' radius 

STHETA 

Le(r) 

Circumferential turbulence length scale fnondimen- 
slonalized on the duct radius) as a function of non- 
dimensional radius.* 

EPSD 

£n(r) 

RMS turbulence velocity (nondlmenslonallzed or. the 


mean axial velocity) as a function of nondlmenslonai 
radius. (See Eq. 9^ of Vol. 1) 
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D. Computational Data 

These data set the number of Integration stations In the chordwlse and 
spanwlse directions (and. Indirectly, the accuracy of tne results). 

The required accuracy for the Bessel functions used in the mode shape 
aXid eigenvalue routines are also specified. 



FORTRAN 

NAME 

VARIABLE 

FORTRAN 
VARIABLE TYPE 

1. 

NRAD 

No. of radial stations at which pressure 
distributions are calculated (odd number) 

Integer 

2. 

NRADNU 

No. of Integration stations In the chord* 
wise direction (odd number) 

Integer 

3- 

NCHORD 

No. of Integration stations In the chord* 
wise direction (even number) 

Integer 

4. 

EB 

Absolute accuracy of all Bessel function 
calculations 

Floating Point 

5- 

EC 

Absolute accuracy of convergence to annular 
root for boundary value problem 

Floating Point 


Program Output 


The output consists of tho relative power spectral density for each 
propagating mode and f'^r the sum of all propagating modes at the 
frequencr of Interest. The output Is given In terms of the nondlmen- 
slonal quantity 


10 log^Q 


2 


**duct 


I 


where Is the spectral density (watt/Hz), Is the ambient air 
density, Is the small-signal speed of sound and Is the 

(dimensional) duct radius. To recover the conventional spectral 

-12 

density (dB re 10 watt/Hz) one must add 


10 log 


10 


^ 0^0 ^duct 


10 ^watt 


to the output of the program. This step Is required because all 
compu‘;atlons performed In the program are ncndlmenslonal wlch absolute 
valuer of p , c , and unknown. 
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TABLE 6. IMPORTANT INTERNAL VARIABLES FOR THE INLET TURBULENCE 
PROGRAM 

(Used in addition to INPUT/OUTPUT Variables) 


FORTRAN 

NAME 

SYHBOL 

VARIABLE 


J„(X) 

Nth order Bessel function of the first kind 

cascet"^ 

Ap 

Stored values of the chordwlse pressure distribution 


- 

Vector length of blade spacing between corresponding 
points on any two neighboring blades (See Fig. B.l) 

KB'^ 

- 

Nondlmenslonal gust wave number -ni)/M^] 

LB'*' 


Ratio of radial turbulence length scale to duct radius 

LTHETA 

£e(f) 

Ratio of circumferential turbulence length scale to 
duct radius 

LX* 

i,(f) 

Ratio of axial turbulence length scale to duct radius 

OMEGA'*' 

(li/Q 

Ratio of noise frequency to rotor shaft frequency 

OMEGBC'*' 

- 

Nondlmenslonal acoustic wavenumber for reduced 
frequency [■M^a„b(4ki- -m)] 

PHIARG'*' 

- 

Argument of (Argument) 

PMNS 

• 

Sum of terms comprising the radial Integral 

QMNS 

- 

Sum of terms comprising the chordwlse Integral 

RELPRL'^ 

- 

Relative modal power spectral density level at a 
giver frequency 

RELPWR'*’ 
or SPWR+ 

- 

Relative medal pover spectral density at given 
frequency 

RRRS'*' 


Weighting factor for Bessel^type Integratlcn In 
chordwlse direction 

sigma'*' 

a 

Interblade phase angle (See page 52 of Vol. 1) 

THEARG'*' 

- 

Argument of (Argument) 

whtr'*' 

- 

Weighting factor for Simpson integration In radial 
direction 


'fTnese variables art also used li. the walce turbulence routine, but 
are listed here only. 
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7. SAMPLE EXECUTION OF THE INLET TURBULENCE DATA 
STORAGE ROUTINE 


ORIGINAL P-v/. 

OF POOR QUA-.T: 

13 

Hl» RAOIVS IIVIDCO lY lUCT RAIIUS • 

.46 

SI6RAR* f.460000tOC-»0« 

BLADE TIP CHORD DIVIDED BT OVCT RADIOS* 

.374 

SIGNAC* •.374000fOE«00 
NIAT * 

10 

NDAT* 10 

BLADE GEOMETRY MATRIX INPUT 

FEED MATRIX IN ONE ROU AT A TIHc, FROM HUD TO TIP 
ROU* 1 R/RDUCT > 

.46 

C/CTIP • 

.628 

CH: (DEGREES)* 

3.61 

RDU> 2 R/RDUCT * 

.314 

C/CTIP « 

.662 

CHI (DEC .IS)* 

9.73 

RIU« 3 R/RDUCT * 

.341 

C/CTIP ■ 

.68 

CHI (DEGREES)* 

11.74 

ROU* 4 R/RDUCT * 

,622 
C/CTIP « 

.735 

CHI (DECREES)* 

17.48 

ROU* S R/RDUCT ■ 

.73 

C/CTIP • 

.811 

CHI (DEGREES)* 

24.22 

ROU* 6 R/RDUCT » 

.838 


TABLE 


SROTORS 

NDLADE* 

13 

NDLADE* 


52 


A ■ . 


i) 
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PAGt 'S 


IL 


C/CTIP • 

■887 

CH2 (tE6EE£S)« 

J0.66 

R0y« 7 R/KBUCT > 

.919 

C/CTIf • 

.943 

CHI (0C6IEEI)* 

35.44 

ROW- 8 i/Riucr • 

.946 

C/CTIP • 

.939 

CHI (OE8RECS)* 

37.03 

ROU> 9 R/fiDUCT « 

.973 

C/CTIP ■ 

.976 

CHI (DE6IEES)* 

38.96 

ROU» 18 R/IOUCT • 

1 . 

C/CTI7 • 

1 . 

CHI (IE6REES)* 

41.14 

BLADE 6E0HETRT MATRIX IS 
8.460C*00 0.428E^40 0.f79E-OI 
8.S14E«00 0.662E*00 «.170E«00 
I.S41E«00 0.680E*00 0.209E«00 
9.622E*00 0.Pm*00 O.IOSE400 
l.730E*00 0.811E440 l.423E^OO 
0.838E«60 0.887E«00 0.S33E«00 
0.719E*00 0.945E»00 O.419E^0O 
8.946E«00 0.9S9E«00 9,S47£*0t 
0.973E^00 0.9761*90 0.6I0EO0 
8.100E*01 O.IOOE^Ot 0.71i£*00 
HT ■ 

.308 

9.90800000E*0« 

NA • 

.323 

HA • 8.32300800E400 
NVHBER OF RAIIAL STATIONS « 

5 

NRAI- S 
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TABLE 7. (Cont.) 


NDNIER OF CNOtSUISE STATIONS • 

8 

NCN0RI> I 

START FREQUEICTTHARHONIC NO. OF SHAFT )« 

15 

PSTART- 15 

END FREQUENCY(HARNONIC NO. OF SHAFT)- 
75 

P END- 79 

FIEOUENCY STEP SIZE (NARNONIC ORDERS)* 

15 

PSTEP- 19 

ENTER TITLE FOR lATA FIL£(HAX 72 CHARACTERS) 

NASA ROTOR SS,NCH0R0-8,NRAD-580Z DESIGN SPEED/9-25-?\fS0 
ERROR CtSE FRON INVERSION ROUTINE* 0 


(Note: Edited for brevity -- Error Code 
repeated for 375 inversions , ) 


ERROR CODE FRON INVERSION ROUTINE* 0 
STOP 

END OF EXECUTION 

CPU TINEi 52132.72 ELAPSED TlHEt 1i32i2S.4A 
EXIT. 
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TABLE 8. SAMPLE EXECUTION OF THE INLET TURBULENCE NOISE 
CALCULATION 


eiNSRCH 

USER-ASSIGKED TITLE OF DATA SET FROM FILE "ROTO” IS 


NASA ROTOR 55,NCH0RDs8,NRAD=580Z DESIGN 
NOISE FREOUENCr/SHAFT FREQUENCY* 

15. 

ONEGA* .1SO0E^02 

NUMBER OF RADIAL POSITIONS FOR ACOUSTIC 
7 

NRADNU* 7 

ACCURACY OF BESSEL FNS* 

.001 

El* .1000E-02 

ACCURACY OF CONVERGENCE TO ROOT XHN* 

.0001 

EC* .1000E-03 


SPEED/9-25-80 


COHP.* 

WARDING: This sample is for 

illustration purposes only. 
The input data for this 
execution did not correspond 
with Table 7 above. 


XNNIHAX) FOR PROPAGATION « 0.8051 S728E-^01 


MODE BATA 

ONEGA* .1500E*02 H* 0 N* t XNN* .OOOOE-^IO 

PLANE UAOE MODEt CUTOFF RATIO IS * INFINITE 

SUM OF BESSEL FUNCTION ERROR CODES » 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN > 0 

ANN « O.IOOOOOOOE^OI INN « O.OOOOOOOOE^OO 

ERROR CODE FOR BESSEL FNS IN ANN AND BMN CALC *00000090 

M> 0 N» 1 ONEGA* .1500E^02 

UPSTREAM 

GAMMA M,N,SB > 0. 1 1255539E*02 

REL. MODAL SOUND POUER SPECTRAL BENSITY*-.2031E-08 

SUM OF ALL ERRORS IN PSI CALCULATIONS « 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LE9EL (DI)*-.86P2E«02 


OOUNSTREAM 

GAMMA M,N,SB * •0.5759636IE*01 

REL. NODAL SOUND POUER SPECTRAL DENSITY* .43t6E*08 

SUM OF hLL ERRORS IN PSI CALCULATIONS - 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (I6)*-.83A5E«02 

MODE DATA 

ONEGA* .1S00E^02 N* 0 N« 2 XNN* .S?44E-^01 

CUTOFF RATIO FOR NODE* .13S4E«01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN - 0 

ANN « -0.1782858?E«01 BMN * 0.3I95I480E*01 

ERROR CODE FOR BESSEL FNS IN ANN AND BMN CALC *00000090 
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H> 0 N- 2 OMEGA: .ISOOE-^02 
UPSTREAM 

GAMMA M,N,SB > 0.848i1743Et01 

REL. MODAL SOUND POUER SPECTRAL IERSlTY:-.4482E-08 

SUM OF ALL ERRORS IN PSI CALCULATIONS » 0 

SUM OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (OB)=*.8349E«02 

DOUNSTREAN 

GAMMA N,N,SB » -0.2990'*743E*01 

REL. MODAL SOUND POUER SPECTRAL DETJSITY= .2133E-0B 

SUN OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <DB):-.8471E-»02 

LARGEST PR0P.T6ATING N FOR THIS H « 2 
ZFRSAPR Floating underflow PC* 17366 

XFRSAPR Floating underfltu PC= 17433 


NODE DATA 

ONEGA: .1S00E^02 I N* f XHN= .1396E+V1 

CUTOFr RATIO FOR MODE* .5769E*01 

SUM OF BESSEL FUNCTION ERROR CODES » 0 

ERROR CODE FOR CONVER8ENCE TO ROOT XNN * 0 

ANN * 0.15347U1E+0I INN » -0.40872429E+00 

ERROR CODE FOR BESSEL FNS IN AMN AND BNN CALC *00000000 

N* 1 N* 1 OMEGA* .ISOOE*02 

UPSTREAM 

GAMMA M,N,SB « 0,1 1126733E*02 

REL. MODAL SOUND POUER SPECTRAL DENSITY*-. 3481E*07 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-.74S8E-^02 

DOUNSTREAN 

GAMMA N,N,SB « -0.36308314E-»01 

REL. NODAL SOUND POUER SPECTRAL lENSITT* .6363E-07 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <DB)>-.7196E*02 
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-I N« t 0HE6A> .ISOOE-^02 
M« -I M» t 0IIE6A* .1500E+02 
UPSTRCAH 

GAfltIA N,N,SB s 0.1112A733E402 

REL. NODAL SOUND POUER SPECTRAL IENSITr--.1 139E-09 

SUN OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUN OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (0B)=-.?943E*02 


OOUNSTREAN 

GANNA < -0.SA30831 4E*01 

REL. NODAL SOUND POUER SPECTRAL DENSITY* .2030E-09 

SUN OF ALL ERRORS IN PSI CALCULATIONS » 0 

SUN OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)»-.9A92E4-02 


NODE DATA 

ONEGA* .tS00E^02 N* 1 N* 2 ZNN* .A1S0E+01 

CUTOFF RATIO FOR NODE* .1309E-^01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

ANN * 0.2SS24893E401 BHN « 0.26060464E*01 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

H* 1 N* 2 ONEGA* .1SO0E^02 

UPSTREAN 

GANNA N,N,SB * 0.823916S1E^0I 

REL. NODAL SOUND POUER SPECTRAL DENSITY*-. 3133E-07 

SUN OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUN OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (9B)*-.72P0E^02 

OOUNSTREAN 

*GANNA H,M,SB « -0.27A32631E^OI 

REL. NODAL SOUND POUER SPECTRAL DENSITY* .3747E-07 

SUN OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUN OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)«-.7426E-^02 

H« -1 N« 2 ONEGA* .1S00E+02 

H* -1 N« 2 ONEGA* .ISOOE-^02 
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UPSTREAM 

GAMMA M,N,SB » 0.823?1i5tEt01 

REL. MODAL SOUND POUER SPECTRAL IENSITY=-.3109E-0» 

SUM OF ALL ERRORS IN PSI CALCULATIONS : 0 

SUM OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DERSITY LEVEL (DI)=-.9507E*02 

DOUNSTREAM 

GAMMA M,N,SB > -0.2743263IE+01 

REL. MODAL SOUND POUER SPECTRAL DENSITY^ .416SE>10 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

SUM OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (BB)*-. 1038E+03 

LARGEST PROPAGATING N FOR THIS H » 2 

NODE DATA 

OHEGA> .1500E^02 M= 2 N= 1 INN= .274B£*0f 

CUTOFF RATIO FOR MODE= .2?30E^01 

SUM OF BESSEL FUNCTION ERROR CODES « 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN » 0.21049825E+01 BHN = -0.38973734E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC >00000000 

N> 2 N> 1 OHEGA> .15O0E«O2 

UPSTREAM 

GAMMA H,N,SB > 0.10744l35E-^02 

REL. MODAL SOUND POUER SPECTRAL DENSITY=-.2045E-06 

SUM OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* C 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (0B)>-.6A£5E*02 

DOUNSTREAM 

GAMMA M,N,SB > -O.S2489328E>01 

REL. MODAL SOUND POUER SPECTRAL IENSITr= .7372E>06 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)«-.A132E«02 

H« -2 N> 1 OMEGA* .ISOOE-^02 

H> -2 N> 1 ONEGA* .1SOOE402 




TABLE 8. (Cont.) 


ORIGINAL PAGE IS 
OF POOR QUALITY 


UPSTREAM 

GAMMA M,N,SB > 0.1974483SE«02 

REL. MODAL SOUND POUER SPECTRAL IENSITY=-.7070E-I1 

SUM OF ALL ERRORS IN PSI CALCULATIONS < 0 

SUM OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (OB):-. 11 tSE*03 

OOUNSTREAM 

GAMMA M,N,SB » -0.S2489328E«O1 

REL. MODAL SOUND POUER SPECTRAL DENSITY^ .6529E-11 

SUM OF ALL ERRORS IN PSI CALCULATIONS 0 

SUM OF ALL ERRORS IN RS CALCULATIbNS: 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)--. 1 119E-^03 

NODE DATA 

ONEGA: .1500E+02 N: 2 R: 2 INN: ,6738E*01 

CUTOFF RATIO FOR MODE: .119SE-^01 

SUM OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN » C 

ANN * 0.3A099485E^01 BAN > 0.1t00142^£>09 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC =00600090 

H= 2 N« 2 ONEGA: .1SOOE^«2 

UPSTREAM 

GAMMA N,N,SB « 0.74043386E*01 

REL. NODAL SOUND POUER SPECTRAL lENSITY^-.l 927E-06 

SUM OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUM OF ALL ERRORS IN RS CALCULATIONS: 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB):-. A71SE^02 

DOUNSTREAH 

GAMMA N,N,SB < -0.1908A3A7E«01 

REL. NODAL SOUND POUER SPECTRAL DENSITY: .3230E-06 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

SUM OF ALL FRRORS IN RS CALCULATIONS: 0 

REL. SOUND POUER SPECTRAL DE.'TSITY LEVEL (DB)=-.6491 E-^02 

N* -2 N> 2 ONEGA: .l[)0OEtO2 

H» -2 N* 2 *‘'ECA» .1500E*02 

UPSTREAM 

GAMMA M,N,SB * 0.7404S3B6E«01 

REL. NODAL SOUND POUER SPECTRAL BENSITY:-.2280E-1O 

SUM OF ALL ERRORS IN PSI CALCULATIONS « 9 

SUN OF ALL ERRORS IN RS CALCULATIONS: 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB):-.1044E>03 

DOUNSTREAM 

GAMMA N,N,SB > -0.1908A3A7E*01 

REL. MODAL SOUND POUER SPECTRAL DENSIYT: .2490E-12 

SUM OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUM OF ALL ERRORS IN RS CALCULATIONS: 9 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB):-.1 262E-^03 


LARGEST PROPAGATING N FOR THIS H : 2 
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NODE DATA 

0HE6A> .1500E>02 N< 3 N« t XHN= .A027E-«-91 

CUTOFF P*TID FOR H0DE= .2000E+01 

SUH OF BESSEL FUNCTION ERROR CODES « 0 

ERROR CODE FOR CONVER6ENCE TO ROOT XNN * 0 

AHk' » 0.2A8t5i'93E*0l IHN = -0.27568805E+D0 

ERROk' code FOR BESSEL FNS IN ANN AND BHN CALC » 0 9 0 0 0 0 0 0 

H> 3 N* 1 0HEGA> .1500E+02 

UPSTREAM 

GANNA - 0.1J1152T7E+02 

REL. NODAL SOUND 7QUER SPECTRAL IENSITY>-.8401E-96 

SUN OF ALL ERRORS IK PSl CALCULATIONS - 0 

SUN OF ALL ERRORS IN R? CALCULATIONS^ ' 0 

REL. SOUND POWER SPECTRAl DENSITY LEVEL (DI)»-.A076E«02 

DOWNSTREAM 

GANNA N,N,SB * -0.A61?39A(E«01 

REL. NODAL SOUND POUER SPECTRAL DENSTTT= .7621E-03 

SUN OF ALL ERRORS IN PSI CALCULATIONS 0 

SUN OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)=‘ 51I8E*02 


N= -3 N= 

1 ONEGA* .1SO0E+02 

N* -3 N= 

1 0NE6A* .t500E*02 

UPSTREAM 
GANNA * 

0.101 t52P7E+02 


REL. NODAL SOUND POUER SPECTRAL DENS1TY>-.S393E-12 

SUN OF ALL ERRORS IN PSI CALCULATIONS » 0 

SUN OF ALL ERRORS IN RS CALCULATIONS= 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <BD)=-.1227Et03 

DOWNSTREAM 

GANNA N,N,SB > -0.46193948E«0I 

REL. NODAL SOUND POUER SPECTRAL DENSITY^ .6330E'13 

SUN OF ALL ERRORS IN PSI CALCULATIONS » 0 

SUN OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)«-. 1 320E-»03 

NODE DATA 

ONEGA* .1S00E^02 N* 3 2 XNN« .7642E-^01 

CUTOFF RATIO FOR NODE* .t094E-»01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR COi/E FOR CONVERGENCE TO ROOT XNN * 0 

ANN » 0.33544744E+01 BNN « -0.119984R9E+01 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC * 0 0 9 0 0 0 0 0 
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3 2 OHEGA- .ISOOE+92 

UPSTREAH 

6AHNA > O.S4275270E-^OI 

REL. MODAL SOUND POUCR SPCCTRmL DENSITY*-. 23i4E>06 

SUM OF ALL ERRORS IN PSI CALCULATIONS « 0 

SUM OF ALL ERRORS IN RS CALCULATIONS- 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (IB)»-.6626E^C2 

OOUNSTREAM 

GAMMA M,N,S6 * 0.A8375O36E-OI 

REL. MODAL SOUND POWER SPECTRAL DENSITTs .t706E-QS 

SUM OF ALL ERRORS IN PSI CALCULATIONS - 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)>-.S768E>Q2 

N* -3 N> 2 OMEGA* .1S00F402 

N* -3 N* 2 OHEGA* .1S00E+02 

UPSTREAM 

GAMMA N,N,SB * O.S427S270E*O1 

REL. MODAL SOUND POWER SPECTRAL IENSITr=-.2331E-1l 

SUN OF MLL errors IN PSI CALCULATIONS * 0 

SUN UF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DD)*-.n63E«C3 

DOWNSTREAM 

GAMMA * 0.6837503AE-91 

REl NODAL SOUND POUEh SPECTRAL DENSITY* .9788E-12 

SUh IF ALL ERRORS IN PSI CALCULATIONS * 0 

SUN LF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DD)*-.1291E^03 

LARGES^ PROPAGATING N FOR THIS M > 2 

NODE DATA 

ONEGA* .IS00E^02 N* 4 N* 1 INN* .5230E-»-0t 

CUTOFF RATIO FO« «C?E* .1?3VE*0t 

SUH OF BE33E.. FUNCTIO'I EDR^JR CODES * 0 

ERROR CODE FOR CONVERSANCE TO ROOT YHH * 0 

ANN • 0.32237284E*0t • -0. 16030403E-^00 

ERROR CODE FOR BESSEL FNS IN PNN AND 8NN CALC *00000000 

H* 4 N« 1 OMEGA* .1500E^02 
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UPSTREAM 

GAMMA M,N,SB » 0.92U1 443E-^Ct 

R£L. MODAL SOUND POUER SPECTRAL DENSITY*-. 2038r-05 

SUM OF ALL ERRORS IN PSI CALCULATIONS • 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

RCL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-.5A91E-^02 

DOWNSTREAM 

GAMMA M,N,SB * -0.37202422E+01 

REL. MODAL SOUND POUER SPECTRAL lENSITT- .6338E-94 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <DB)*-.418SE402 

N* -4 N* 1 OHEOA* .tSOOE^02 

H* -4 N* 1 ONEGA* .ISOOE-^02 

UPSTREAM 

GAMMA N,N,SB * 0.92161 443E+01 

REL. MODAL SOUND POUER SPECTRAL DENSITY*-. 51 14E-13 

SUM OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-.1329E403 

DOWNSTREAM 

GAMMA K;N-SB * -0.37202422E+01 

REL. MODAL SOUND POUER SP^ICTRAL DENSITY* .3243E-14 

SUN OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-. 1 449E-»03 

LARGEST PROPAGATING N FOR THIS N * 1 

NODE DATA 

OMEGA* .1500E>02 H* 5 N* 1 XHN* .6376E+OI 

CUTOFF RATIO FOR MODE* .1263E^01 

SUM OF BESSEL FUNCTION ENROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

ANN * 0.3;079083E«01 BNN « -0.8147I940E-01 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC - 0 0 0 0 0 V 0 0 

H* S N» 1 OMEGA* .ISO0E<»02 

UPSTREAM 

GAMMA N,N,SB * 0.79436739E<f0t 

REL. NODAL SOUND POUER SPECTRAL DENSITY*-. 1649E-0S 

SUN OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUM OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (0B)*-.5778E^02 
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OOUNSTREAH 

GAHMA H,N,SB » -0.24477719E+01 

REL. HODAL SOUND POWER SPECTRAI DENSITY^ .4S21E-03 

SUN OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUH OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND P0^:R SPECTRAI DENSITY LEVEL (OI)«-.334SE-^02 


H» -5 

N* 

1 0HE6A* .1S00E4>02 

N« -5 

N* 

1 ONEGA* .1S00E*02 

UPSTREAH 
GAHHA H,N,SB = 

0.79434739E+01 


REL. NODAL SOUND POWER SPECTRAL IENSITY=-.4A08E-14 

SUH OF ALL ERRORS IN PSI CALCULATIONS > 0 

SUH OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL <DD)»-.1434E^03 

DOUNSTREAH 

GAHHA H,N,SB * -0.2447771PE+0: 

REL. HODAL SOUND POWER SPECTRAL DENSITY* .1743E-14 

SUH OF ALL ERRORS IN PSI CALCULATIONS = 0 

SUH OF ALL ERRORS IN RS JALCOLATIONS* 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)=".1475E+03 

LARGEST PROPAGATING N FOR THIS N * I 

NODE DATA 

ONEGA* .1500E>02 H* 6 N- 1 XNN= .7484E40] 

CUTOFF RATIO FOR NODE* .1074E-^01 

SUH OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN = 0 

ANN » 0.41 37071 4E+01 IMN = -0.387304/8E-01 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC *00000000 

H* A N* 1 ONEGA* .ISOOE^OI 

UPSTREAH 

GAHHA H,N,SB * O.SB86S744E-»Ot 

REL. HODAL SOUND POWER SPECTRAL DENSITY*-. 4244E-04 

SUH OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUH OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)*-.4372E>02 

DOUNSTREAH 

GAHHA N,N,SB * -0.39067242E-^OC 

REL. HODAL SOUND POWER SPECTRAL DENSITY* .2457E-02 

SUH OF ALL ERRORS IN PSI CALCULATIONS * 0 

SUH OF ALL ERRORS IN RS CALCULATIONS* 0 

REL. SOUNC POWER SPECTRAL DENSITY LEVEL (DD)«-.2S74E*02 
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M= -6 H= 1 OHEGA* 


ORIGINAL PATS B 
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.1500E+02 


-6 Jj* I 0 «EIj(I= .1500E+0? 

UPSTREAM 

GAMMA M,M,SB » 0.588657448*01 

REL. MODAL SOUND POWER SPECTRAL 4EN?ITy=-.3327E-15 

SUN OF AIL ERRORS IN PSI CALCULATIONS < 0 

SUM Of ALL ERRORS IN RS CAl CULATIONS- 0 

REL. SOUND PuUER SPECTRAL DENSITY LEVEL (08)=-. I548E*03 


DOUNSTSEAM 

GANNA M,H,SB = -0.39067242EO0 

REL. MODAL SOUND POWER SPECTRAL DENSITY= .2438E-15 

SUM OF ALL ERRORS IN PSI CALCULATIONS = 0 

SUN OF ALL ERRORS IN RS CALCULATIONS^ 0 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)=-.1541£+03 

LARGEST PROPAGATING N FOR THIS H ^ 1 

NO MORE PROPAGATING MODES FOR THIS ONEGA 
PROBLEM COMPLETED 

RELATIVE POUER SPECTRAL DENSITY LEVEL UPST4EAM=-.4321E+02 
REL. POUER SPECTRAL DENSITY LEVEL D9UNSTRtMH=-.24?7E+02 
STOP 

END OF EXECUTION 

CPU TIMES 'fO.55 ELAPSED TINE; llsIl.VA 

EXIT. 
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TABLE 9. INPUT/OUTPUT DATA FOR THE ROTOR WAKE TURBULENCE PROGRAM 


This program calculates the modal power spectral density for noise 
generated by the interaction of rotor wake turbulence with the stator 
vanes. All input and output data are ncndimensional . The input 
variables are defined in order to parallel as closely as possible 
the variables used in the Mean Wakt and Inlet Turbulence programs. 

The input data consist of geometric, performance, turbulence, and 
computational parameters. 


A. 

C..ametrlc 

Data 





FORTRAN 

NAKE 

SYMBOL 

VARIABLE 

FORTRAN 

VARIABLE 

TYPE 

1. 

NVANE 

V 

No. of stator vanes 

Integer 


2. 

NBLADE 

B 

No. of rotor blades 

Integer 


3. 

SIQMAR 


Ratio of hub radius to duct radius 

Floating Point 


SIGMAC 


Ratio of tip chord of stator vane 
to duct radius 

Floating 

Point 

5- 



Vector of data for a number, OTAT 
(an Integer variable) of stator 
vane radii 



a. 

R 

f 

Nondi.mensional radius • 

Float Mg 

Point 

b. 

Q 

c 

Nond^menslonal vane chord • ^^^tlp 

floating 

Poilit 

c . 

THETA 

e 

Vane angle (degrees) 

Floating 

Point 

B. 

Performance Data 





FORTRAN 

NAME 

SYMBOL 

VARIABLE 

FORTRAN 

VARIABLE 

TYPE 

1, 

MT 

«t 

Tip Mach number 

Floating 

Point 

2. 

MA 

M 

Axial flow Mach number 

Floating 

Point 

3. 



Frequency range data: Pressure 

distributions are calculated and 




stored for the range of frequencies 
from PSTART to PENO In steps of 
PSTEP. These data are Interpolated 
for cal:ulatlons at the frequency of 
Interest OMEGA. See text. 
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a. 


b. 


c . 


d. 




5 . 


6 . 


fortran 

NAME 

SYMBOL 

VAKiABlE 

FORTRAN 

VARIABLE 

TYPE 

PSTAHT 


First frequency for pressure 
calculation. Must be an Integer 
multiple of shaft frequency. 
(Usually - NBLADE) 

Integer 


PEND 

•* 

Pinal frequency for pressure 
calculation. (Usually ■ 

3x NBLADE) 

Integer 


PSTEP 

- 

Frequency step size In pressure 
calculations. (Usually * NBLADE) 

Integer 


OMEGA 

w/Q 

Noise frequency of Interest (non- 
dlmenslonallzed on the rotor shaft 
frequency) 

Floating Point 

IVOR 


Switch for rotor wake specification 
• 0 for free voitex distribution 
■ 1 for specified Input velocity 
distribution 

Integer 



(for IVOR 
- 1) 

Vector of data for a number, NVELO 
(an Integer variable) of vane radii 



R 

r 

a. Nondlmenslonal radium 

Floating 

Point 

r;zL 

Vyfm 

Vxm 

b. Ratio of circumferential velocity 
of mean wake to axial flow 
velocity (See Fig. 9) 

Floating Point 

MUV 


(for IVOR - 0) Ratio of circumfer- 
ential velocity at the duct radius 
to the axial flow velocity 

Floating 

Point 


C. Turbulence Data 


The wake turbulence data are assumed to be constant across the duct. 


FORTRAN 


FORTRAN 


NAME 

SYMBOL VARIABLE 

VARIABLE 

TYPE 

1. DC 

L Axial turbulence length scale 

(nondlmenslonallzed on the duct 
radius ) 

Floating 

Point 
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FORTRAN 

NAME 

SYMBOL 

VARIABLE 

FORTRAN 
VARIABLE TYPE 

2. 

LR 

L.. 

Radial turbulence lt*igth scale 
(nondlmenslonallzed on the duct 
radius) 

Floating Point 

3. 

LTHETA 

Le 

Circumferential turbulence length 
scale (nondlmenslonallzed or the 
duct radius) 

Floating Point 

k. 

EPSW 


RMS turbulence velocity at wake 
centerline (nondlmenslonallzed 
on whe mean axial velocity), [see 
Eq. 138 of Vol. 1] 

Floating Point 

5. 

WWIDTH 

6 

Ratio of turbulent wake width to 

Floating Point 


duct radius (See Eq. 1^0 of Vol. 1) 


D. Computational Data 

The computational Input data are identical to thcs^? usei fur the 
inlet turbulence routine. 

Program Output 

The output consists of the relative power spectral density for all 
propagating modes at the frequency of Interest. The nondlmenslonal- 
Itatlon used here Is Identical to that used for che Inlet turbulence 
routine . 
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10. IMPORTANT INTERNAL PROGRAM VARIABLES FOR THE ROTOR 
WAKE TURBULENCE PROGRAM 

(Used In addition to INPUT/OUTPUT variables) 


FORTRAN 

4«AME 

SYMBOL 

VARIABLE 

OMEGA 


Ratio of noise frequency to rotor shaft frequency 

PARC 


Argument of f (argument) 

-THETA 


Stator vane angle (radius) 

QSUM 

— 

Sum of correlation function contributions 
multiplying pressure distribution. Value must 
exceed QTESTH (Input variable) before pressure 
distribution Is actually calculated. 

MTHETA 

- 

Circumferential wake Mach number at a given radius 

MYM 

- 

Relative circumferential wake Mach number at 
a given radius 


» 


68 










TABLE 11 . 


SAMPLE EXECUTION OF THE ROTOR WAKE TURBULENCE 
DATA STORAGE ROUTINE 


Original pa'^e »3 

OP POOR QUALITY 


eSTATOR 
NVANC* 

11 

NVANE> II 
NM.4PE« 

15 

NBLAOE« IS 

HUB RABIUS BIVIDEI BT lUCT RADIUS •« 

.484 

S16HAR> 0.48400000E«00 

VANE TIP CNORO DIVIDED BY lUCT RADIUS* 

.408 

SISNAC* 0.40I00B00C4^0« 

NBAT • 

7 

NDAT« 7 

VANE GEOMETRY MATRIX INPUT 

FEED MATRIX IN ONE ROW AT A TIME, FROM HUB TD TIP 
RBU« 1 R/RDUCT > 


.484 

C/CTIP - 

1 . 

THETA (DEGREES)* 
16.3 

ROU* 2 R/RBUCT * 
.56 

C/CTIP ■ 

1 . 

THETA (DEGREES)* 
15.67 


ROU* 3 R/RDBCT • 
.739 

C/CTIP * 

1 . 

THETA (DEGREES)* 
14.07 


ROU* 4 R/RDUCT • 
.92 

C/CTIP ■ 

1 . 

THETA (DEGREES)* 
12.57 


ROU* S R/RDICT ■ 
.946 

C/CTIP ■ 

1 . 
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THETA (DE6EEES)> 

12«36 

R0U« 4 R/ROICT • 

.973 

C/CTIP - 

1. 

THETA (IE6IEES)* 

12.1S 

ROU- 7 R/RIUCT • 

1 . 

C/CTIP ■ 

1. 

THETA (OEOIEES)- 
11.92 

VANE 6E0HETRY lATRlX It 
«.484E«00 9.1I0E«01 0.284E«00 
«.S40E*00 O.IOOE^II 0.273E<H)I 
4.739E«00 O.IOOE^tl •.246E-H19 
4.920E*00 0.100E«01 0.219E*00 
•.944E*00 0.100E*01 0.2UE+90 
9,973£*00 O.IOOE^II •.2l2E<^Of 
t.t00£>01 0.100E«Ot 4.208E«00 
TYPE 1 TO INPUT ROTOR UAKE VELOCITY; 0 FOR FREE VORTEX 
1 

IVOR- 1 

NUHIER OF RADII FOR fPECIFYINO HEAN ROTOR FLOV« 

8 

NVELO* 8 

INPUT NAT.iiX FIR HEAH ROTOR FLOH 

FEED MATRIX IN ONE ROU 9"' A TIHE,FROH HUI TO TIP 

R0U« 1 R/RDUCT* 

.484 

HEAN CIRCUHFERENTIAL 9EL0CITY RATIOTU CIRCUR/U AXIALO* 
.108 

ROU- 2 R/RIUCT* 

.533 

HEAN CIRCNIlfERENTIAL VELOCITY RATtOCU CIRCUN/U AXIALO- 
.788 

RON* 3 R/ROUCT- 
.612 

HEAN CIRCNHFEREHTIAL VELOCITY RATIOTU CIRCUR/U AXIALO- 
.784 

ROU- 4 R/RIUCT- 
.834 

HEAN CIRCURFERENTTAL VELOCITY RATIOTU CIRCUN/N AXIALO- 
.712 


r 
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R0U> S K/R0UCT> 

•918 

HEAR CIRCUHFEtENTIAL VELOCITY lATIOlU CIRCUII/U AXIALO- 

• 488 

ROI« 6 R/IDUCT> 

•946 

HEAR CIRCilHFEIENTIAL VELOCITY RATIO(U CIRCUH/U AXIAL0« 

• 484 

R0U> 7 R/RDUCT- 
•974 

HEIN CIRCURfEIERTIIL VELOCITY RATIO (U CIRCUN/8 IXIALI- 
.713 

ROW- 8 R/RDUCT- 

1 . 

HEAR CIRCDHFERENTIAL VELOCITY lATIOdI CIRCUH/U AXIALO- 
.713 

HEAR ROTOR FLOO VELOCITY lATRIX IS 

• 4340E>00 .8080E<»^00 
•S330E^00 .788«E«00 
•4t20E^00 .7840E40I 

• 8340E^00 .7I20E-^40 
•9180E^00 .488IE^OO 
•9440E>00 .4040E409 
.9740E«00 .713IE«00 
•lOOOE^OI .7130E»0I 

HT ■ 

•soe 

HT- 0.50800000E400 

HI - 

•J23 

HA • 0.323000IOE400 
NOMOER OF RAOIAl STATIONS > 

S 

NRAO- 3 

NUNBER OF CHORDUISE STATIORS (.LE.20) - 
8 

NCHORD- 8 

START FREQtlENCYCHAtHONIC NO. OF SHIFT )« 

IS 

f»START* 13 

EHO FREflUERCTTHARRONIC RO. OF SHAFT )- 

4S 

P ERO- 43 

FREQUENCY STEF SIZE THARHORIC ORDERS)- 
IS 

PSTEP- 15 
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' ENTER TITLE F9R DATA FILEdAX 72 CNARNCTERS) 

NASA ROTO^/STATOR SS/1S BLADES, 11 UANES/UAKE TURBULENCE STORAGE 
EIROR CODE FRSN INVERSION SOUTINE* 0 
ERROR CODE FROM INVERSION ROUTINE* • 

ERROR CODE FROM INVERSION ROUTINE* 9 
ERROR CODE FROK INVERSION ROUTINE* 0 
ERROR CODE FRON INVERSION ROUTINE* • 

ERROR CODE FRON INVERSION ROUTINE* 0 
ERROR CODE FRON INVERSION ROUTINE* 0 


(Note: Edited for br-e ‘‘•y -- Error Code 
repeated IBS times . ) 


ERROR CODE FRON INVERSION ROUTINE* 0 
STOP 

END OF EXECUTION 

CPU TINEi 21 <28.07 ELAPSED TIREi U6t29.t7 
EXIT. 

*C 



72 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

WASRCH 

USER-ASSIGHED TITLE OF DATA SET FROM FILE 'STAT'' IS 

NASA ROTOR/STATOR 55/15 BLADES, II VANES/UAKE TURBULENCE STORA6E 

NOISE FREQUENCY/SHAFT FREQUENCY* 

15. 

OME6A* .ISOOE-^02 

NUMBER OF RADIAL POSITIONS FOR ACOUSTIC COHP.* 

7 

NRADNU* 7 

ACCURACY OF BESSEL FNS* 

.001 

EB= .100DE-02 

ACCURACY OF CONVERGENCE TO ROOT XHN= 

.0001 

EC* .1000E-03 
UAKE UIOTH* 

.072 

UUIDTH* .7200E-01 

TURBULENCE IITENSITYIRHS FLUCTUATING U/U BAR)* 

.01 

EPSU* .1000E-01 

TURBULENCE LENGTH SCALE IN AXIAL DIRECTION* 

.5 

LX= .5000E+00 

TURBULENCE LENGTH SCALE IN RADIAL DIRECTION* 

.S 

LR* .5000E+00 

TURBULENCE LENGTH SCALE IN CIRCUMFERENTIAL DIRECTION* 

.3 

LTHETA* .5000E+00 

M* 0 N> i OMEGA* .1SOOE>02 
XFRSAPR Floatins underflow PC* 17374 

XFRSAPR Floatins undirflo* PC* 17374 


UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-.P627E+02 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <DD)«-. VS77E*02 

M* 0 N* 2 OMEGA* .ISOOE»02 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)*-.^546E402 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DD)*-.1 0O9E-»D3 
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H« 1 Ns 1 ONEGA* .tSO0EtO2 

UPSTREAH 

REL. SOUND POWER SPECfRAL DENSITY LEVEL (0B)s-.8?98E-^»2 
DOUNSTREAN 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (IB)*-. t1 I6E>03 
N» -1 N» 1 ONEGA* .1500E*02 


UPSTREAH 

REL. SOUND POWilR SPECTRAL DENSITY LEVEL (lfc-=- 1050E+03 
DOUNSTREAN 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (Dl)s-.9334E+I2 
N* 1 Ns 2 ONEGAs .1SOOE^02 


UPSTREAH 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (IB)*-.88S0E^02 
DOUNSTREAN 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)s-.9785E-»^02 

H* -1 Ns 2 ONEGAs ,ISO0E^02 

UPSTREAH 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DI)*-.1071Et03 
DOUNSTREAN 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)=-.9Sd8E402 

H> 2 N> 1 ONEGAs .1SO0E>02 

UPSTREAH 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DI)='.87S8E»02 
DOUNSTREAN 

REL. Stiuf!? POWER SPECTRAL DENSITY LEVEL (DB)»-.9249E+02 

M> -2 N* 1 ONEGA* .1SO0E+02 

UPSTREAH 

REL. SOUND POWER SPECTRAL DENSITY LEVEL (DB)s-.1222E-H)3 
DOUNSTREAN 

REL. SOUND POWER SPECTRAL DENSHY LEVEL (DI)s-.9020E^02 
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M= 2 N= 2 OMEGA* .I500E+02 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)=-.84IOE+02 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)=-.8596E+02 

M* -2 N« 2 OMEGA* .1500E*02 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITY LEVEL <DB)*-.10?0E*O3 
nOUNSTREAM 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)>-.922SE+02 

N« 3 N> 1 OMEGA- .ISO0E*02 

UPSTREAM 

REL. SOUND POUER . ICTRAL DENSITY LEVEL (DB)»*.8632E^02 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (O6)--.8503E-H)2 

H* -3 N» 1 OMEGA* .15OOE+02 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (Dl)«- .1 08IE-^03 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)=-.8705E+O2 

H» 3 N= 2 OMEGA* .15001+02 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DD)=*.7849E+02 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (0I)>-.7829E«02 

H« >3 N> 2 ONEGA* .1S0OE^O2 

UPSTREAM 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)*-.9A63E+02 
DOUNSTREAH 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DD)*-.V060E»02 
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M« 4 N< 1 0)(E6A‘ .t500E*02 

UPSTREAH 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB;»*.8833E+02 


DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (0B)=-.8132E>«2 
-4 N< 1 D.iEGA* .tSOOE+02 


UPSTREAN 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (DB)=-. 1006E*03 
DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)=-.8S28E-i-02 

N> S N= 1 0NE6A= .1SD0Et02 

UPSTREAN 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (IB)--.8864E4-02 
DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (IB)>-.80«5Et02 

H« >S N> 1 0NE6A< .1500E>02 

UPSTREAN 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)=*.9898E+02 
DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITT lEVEL <DB)=*.8460E-^02 
6 N» 1 0NE6A> .1S0OE*O2 

UPSTREAN 

REL. SOUND POUER SPECTRAL DENSITT LEVEL <IB)»-.8764E^02 
DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITV LEVEL (DI)=-.8147Et02 

H« -4 f ONEGA* .I500E*02 

UPSTREAN 

REL. SOUND POUER SPECTRAL DENSITY LEVEL (8B)*-.8S44E-^02 
DOUNSTREAN 

REL. SOUND POUER SPECTRAL DENSITT LEVEL (DB)--.8334E-^02 
PROBLEN CONPLETED 

RELATIVE POUER SPECTRAL DENSITY LEVEL UPSTRE8H=-.7473E+02 
REL. POUER SPECTRAL DENSITY LEVEL DOUNSTREAN>-.72t8E«02 
STOP 

END OF EXECUTION 

CPU TINEi 1 >59.28 ELAPSED TIHEi 4>6.S0 

EXIT. 
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This is the calling program 
controlling the computation of 
mean wake/stator interaction 
noise. 
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KU£ 

3006 

FO:-.''AT(' »0’’s'/I2/' R./r.DUCfs') 
f.rAr(5/12ri) Vr.LOCV(IRO*.^/l) 



V?I'^EC5/3?12) 


3012 

FnP*'AT(' MEAN CTR.:U‘'F*‘?FNmL VELOCITY RATIO® 
.= EAr.(5/iij?i) VELn:v(iso'.’/2) 

•) 

4003 

cor'r»u" 


C 







4 ^ 


0 


C <:•' 

:>';,:i”V. .'3-;6 Tnu 3-3-:-51 1:34^^ 

1:2 



L. 



• 

L 

3iJ14 

F:r,-A7(' ~3T2.- rLG” VILGCITV Mi’-jy 15') 

D2 *■:*.-• 2 :- 3'/=i,'r; "LT 


i 


:ei6 

(7-L jcv( ISO.', icn-’'f;)/mL‘'.N=i/2) 

Fc- ',2?K.4) 


1 


4ce2 

cn’.'ivij- 




c 




r 

c 





4y.’5 

CPN"! v!j- 




Z' 

ORiG!NU 

Pmc: n 




OF POOR 

Q'JhlIT’’ 




2:2.') 



2?3: 

f- n: W7 - » \ 

f::m = ;i:’1) V? 





'3(5,213’) m: 




213’ 

r=',ri6.5) 
-I '£(5,2:31) 




2e5i 

r:- ••;“(' *4 =') 
K-A'(",i.”i) 
■/'I'£(5,:i31) -A 



■ 

2131 

FO.- ''AT( ' --'A =',-16. 3) 

IF( ’VOS. 'p.l ) SO '0 6.7i: 





‘-I’E(5,2.;32) 




2(^3 2 

r?.'"l’(' \"i S = SD!JCT =') 
F - i'(F,it..’i) 





•'■•I’i(5,2l33) >’JV 




213/ 

p?a’‘;T(' •''JV = ',"16.3) 




^Pr?^ 

CO' T ’ N n = 





I'( ’'vOF.EC.D .‘ov = 2. 





' -I'F( 5, 2.733 ) 




273^ 

c-:, -r(' VTO’*.-: =') 

^’S"( = ,l.’l) •••''•lO-H 





■ 2 " -■- ( 5 , .i 1 3 3 ) V i ,0 T F 



r 

2133 

FC ■•';:(» V' TOTOr'^Sie. :) 





-I'£(5,::’34) 




2u’3 4 

F:’’”tT(' :-:ay vcl oipicit dt/ided ev u^a-') 
F’A'(-,13.’l ) vel:-f 
■' ■I'E(5,2124) V'lDE' 




2134 

C 

F'--‘'AT(' V'LDEF = ',il6.5) 




W 

W-I-^KS, 2^3=) 




2235 

FHr ••;?(' ''U”b-? O'- FACIAL STATION: =') 
f.:A'C’,U"'l) MSAD 


1 



WI^E(5,2:35) N^A-) 




2135 

FOS”JT(' *'F!D = ',IA) 
•^•=l'Er5,2736) 


1 


2235 

Ffj-..'A'(' rj>'o:s O'' CK^:-:r.TS'-' stations =') 
.--A^(*),lcn) NCiO^L 

. 




v-:i' 1(5,2136) N.C.nF.O 







no 




C <NTHEC!*AL0>MAINV.Pa7;6 Thu 3-0eC-81 1:34PM 


2136 FORMATC WCH0RD='/I4) 

WRITE (5/ 2037) 

2037 fORMAK' ACCURACY OF BESSEL FH s') 

READ(5/1001) SB 
WRITE(5,2137) B8 

2137 FORMAT!' E3s'^E16.8) 

KRI*^E(5/2038) 

2038 FORMAT!' ACCURACY OF CONVERGENCE TO ROOT XMN s') 

REA!)!5^1001) EC 

WRITE!5,2138) EC , 

2138 FORMAT!' ECs'^B16/8) 

C 

C 

IDATA!l)sNVANE 

I0ATA!2)sKBLA0E 

IDATA!3)sNRA0 

lDATA!4)sNCHORO 

IDATA!5)sNDAT 

IDATA!9)sIVOR 

IOATA!10)sNVELO 

C 

C 

RDX?A!1)sMT 

K0A?A(2)sMA 

RDA?A(3)sLX0 

R0A?A(4)sSIGMAC 

RDA‘^A(5)sSIGMAR 

ROATA(6)sMUV 

R0ATA!7)sWifIDTH 

RDA‘I'A!8)sVEL0EF 

RDA?A!9)sEB 

RDATA!10)s£C 


PAGE 1:3 


0U/U./7Y 


CALL SRCHV! lOATB/POATA/VGEOM/VELOCV) 

STOP 

END 


V/ 


PROGRAM SRCHV 


Program determines which modes 
propagate for the mean wake/ 
stator Interaction and enables 
the noise calculation. 



Thu 3-D4C-31 1:27?M 


p;g~ 1 


C <«'"H : LE* > S7CHV . ? '’S ? 5 


£’J=?.OUTl*.'£ SPC.JVCIDATA/f.DATA/VGEOM/VELOCV) 

n*'b«SToV I£-(9),10A7A(12)/M(l?^) 

DTy.-.SIO^ RhA?A(2i’)/V710M(l?,7),P0>;‘^^(3/2)/3FWR(2)/a£Lf “( 3/2) 
DI>> I •“'N V“LO:v(ltf/2) 

REAL 

DATU(P:’V!:3(I/J)/I-1/3)/.J=1/2)/6*S.?/ 

Sr4 

5=3-1 

'"■0 TO 92;^i 


222? 

C 

c 


FGR''AT('2S ='/X2) 


.V7A*’E = IDATA(1) 
::'^L'D?=TD.iTA(2) 
y:==DAiA(i ) 

V'sTOlTi C) 

STG’‘A:=pOATA( 5) 

2=s^34?!(9) 

ZC=?jATA(1C) 
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OF POOR QUALITY 


X • • A y = ? » ? * 3 L A D £ • ^ ( 1 . - A » » 2 ) * * . 5 


2221 

C 

C 


V'l’’i:(5,2‘‘5Jl) X*'VAX 

Fo:-v'*AT(' y!v;(‘^;x) for pfop-aoation ='/£16.3) 


P1=(5’:;?L!D")/.N’7AV£ 
>.n«:= 2’3’'N?LAD:-(2»?Ul)*!lVAK2 
i?(yr*ST.7T..3) ?i=fi+i 


K(1 ) = 3"’HLA'':-?l'‘;VA;iE 


.N=;s*l 


M!R‘5sM(J) 

I •'(:?( J )» L ) MASS*- M * B S 


.A. 



Thu i-Oec-31 1:?7^M 


PAGP l;l 


C <!-;TH* G-Af.D>3''CMV.fO^;5 

C 

CALL AN?T (‘*A?3,fv5TG‘'A3/-£r,E;C/XMV,IEc,I£C) 
C 
C 

Ir (''V.V, 7£.X:-'4V) GJ TO 602? 


332? 

3321 

4022 

1322 

40 ?: 
10 ’5 

3022 

3323 

C 

C 
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'?voor dai;.') 

i'rI'"E(5,3C:n ) S, 

F1?’*AT("CS =',I3/' X ='/I3/' M ='/I3/' X'':; =',:16.?) 

lF(y GO *0 1202 

Cnf TJ'sXSi x/x 'N 

v;=i'£(5,4?r’;’) 

?0?.‘*';T(' cutoff ratio for hOCCs'/'l?.4) 

GO 1?J5 
C"^!.TI^'U~ 

RO.- •';?(' ?LA‘I" -’AVi mode: cutoff ?ATI0 13 + I\’FIKIT=‘') 
c<^N-!‘rruE 

v~I‘!'E(5,3?:*2) TEd 

FOr-'AT(' 3U’! OF 3"3S£L FUMCTION ERROR CODES ="/I3) 
.-I'^E(5/3’.0) lEC 

F^='-'AT(' ER'03 CODE FO? CGHVEF G-.'iCE TO FOOT X'-'N ='/I5) 


C j»ff f 't \ ^ C Yi*' ^’J^T 7*2 YjTCY 



>--ITE(F/3CJ-*- 

3224 




322F 



r:a-a(ii)=X’';. 

.•'“•A’^i,( 12 )sA^N 
RDATA(13)s = '-fN 
I«A’A( 6 )=’^(J) 
IDA^A( 7 )ir 
I0A*1.(3) = S 


C:LL '?IL-L 3 YtIDA’A/r. 0 ATA/V 3 E 0 .M/VTL 0 CV/SPWR) 
i:sI. 4 ^S(TDATi(?)) 

= OV*»(II/l)a’avE?(IUl)^S?*/R(l) 
’'0*’’’(n/2)s® J'’t’(Il/2)»FPV?.(2) 


PA'^A( 6 )s-r 4 TA( 6 ) 

1»>A''A(3)s-IDATA(3) 




C 


3>3'C‘-'V.FC"?5 Thu 3-D^c-31 1:27»M 


PA3? 1;“ 


83 Se 


8402 


8632 


8222 


Wri-‘(5,3?Jn IDATA(6),IDATA(7),IhA’^A(3) 

•o; •:*.:( '2 ':='/i5/' s='T5) 

> ' L'»? 1 7 . ’ AL07 1 2 ( Sr ( 1 ) ) 

FO?.’'A'^(' 2 Ur' 3 T?.£A •. ') 

*^ITi(5/fe63 7) fC-L'Jr 

SELATIVt ShUVD ^-JW-S LEVEL ?D3 MODE (D£ ) = '/ "1 « . -2) 
^ ^L^ri rl .\*kl31U(. S?"r ( / ) ) 

# -rE('^/ 523 v'’) 

-Hr. '••;!( '2DO--N3TEE A;-: ') 

>^1TE(5,852’) :<FLD.4 
IIsTV-SdDA'i.CS)) 

1 1 , 1 ) =? 3 a -K ( 1 1 / 1 ) * 3 ? n ( 1 ) 

p a T / 7 ) ==> 1 ,-^k ( I T , 2 ) + 3 = iv? ( 2 ) 


I~AT.1(6)::-I jATA( 6) 
l3A“‘i(3)=-I34TA(8) 


tm r\ m % ^ 


omeiN.u paqp _ 




!=■(’'. -:.<.i) '2Q t3 


6021 

c 

c 


‘ -'dE(5,6.'’,:i) 

Fj=’'AT( ' rLA-3-3T 0-i.GATI S3 N’ s’G^ THIS M ='/I3) 


I-(J.:Q.l) GO TO 61 


IF(''(l).i7..'’) GO TO 6227 


I F ( • » ( J - 1 ) . L T . 2 ) K ( J 1) s V ( J - 1 ) - ; r,’ A V £ 


J=J *1 
GO ’^0 1^ 





Thu 3-D%c-31 l:27?M 


PXQ? U3 


C < ;.TH 'Ll ' A f . D> S C H V . f 0?: ; 5 


61£!? 


C 

C 


c 

c 

622:^ 


C 

C 

700? 

C 

C 

7001 

. 800? 

30C1 

C 

C 

902.:* 

9001 


5215 

55? 


53^5 

5610 

60? 

610 


5415 

62? 

63? 


C'lv'^pJU!; 

I "•( •*(!). L’.?) 
i-C'C).-:. <) :'(2)s 

ORIGINAL PAGE IS 
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v(J* 1)=’'(7)+:.‘VA‘’£ 

jsj*: 

GO T3 1- 


l-(.l.-Q.l) 


?n 3/'':. 


’/ = I“r(5,7?ri) 

F.j?.*’'AT(' "3 ? = 0PAGA7T\7 /3DZS FO? 

GO TO 1" 

CON*!’!’!- 

'v.-l*^Z(5,??.a) 

FOP **0 P = 0=ATATI'?G MOD'S FOP THIS 

c: *"0 1 ? 


This VALUE OF S') 


VALUE OF S') 


C'?:,-i*’ui 

-ITE(5,9:?1) 

F ?=';?(' ~P03LF--’ :0'/?LE"EO') 

55' IIsl/3 

DO *’5.' JJ=1,2 

:p(’o* •T'>( ri/JJ).EQ.’.) 30 n ^as 

:*ZL"/.(II/JJ)=l''.’'ALOSa!(?OAtR(II,JJ)) 

00 *"0 5"k' 

? 'L5?(n,JJ)=l .-»35 

cOi'ar.’UE 

UO TI*i/3 

Lr:'(ri/l).“Q.l.i>,*) so TO 5315 
!I/ = TL»r.(II/l) 

■30 TO 6?.’ 

2“ITi(“,561?) II 

roR‘‘AT(' Ss'a2,' riAr./ 0 ‘;i: is Ufi*y:iTFO') 

CON*^r:UF 

s'O’^MATC' H'LATIV: PuV£? LEVEL UPST7SAM S*'/I2/5X/£16. 4) 

DO 52? 11*1/3 

I'f(5r:L?5(tI/2).:i.l.£*‘35) GO TO 5415 
y-KOfS/o??) lI/?,?L0?(lT/2) 

GO ‘PfJ 620 
•.,:iTE(f/ 561 ?) i: 

CONTI MUI 

^u^<ATr' P5LATIV-" bq'-’E’ LEVEL D0’‘»N3T?SAM Ss'/I2/5X/El£.^) 
r-Tn?v 
L‘rj 
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PROGRAM FILLOV 


Program computes the noise 
generated by the mean wake/ 
stator interaction In a sub- 
sonic turbofan. 


/ 





C C-t'H^Cr-iLD^FTLLOV.B-o.^.iS 


Thu 


3-:sc-Sl 2;17F.\ 


1 . Wi X 


C 

c 


c 

c 

83 i 3 P 

7 ir 4 

C 

c 


c 

c 

c 


SU3 F'TI TT f.r - ILL-Tt^ CI3 ATA/R3 A TA/ '/'SSOM, VFL7CV/ SPVR ) 
ni*£VjIOV V3*0‘*(l-i/7)/RI,Ar«(2r) / Ii)ATfi(13),rx{6)/I£RPSI(2)/ 
p T y T\- 5 1 r..; ; $r ( 4.1 ) , V?-OC VU t , 2 ) 

nrCVSTO'’ '’3T3TTK2*) 

S£^S5 

F- IL FX/K/r’-^’o/ A/ •^yV/.\Y.«i/LV2’ 

C ^ P L r. X 1 / A r' / 0 r, U : ( i 2 ) / 7 • 1 " S , F V N S , ■ . N 3 / A » \V S 

c:v?L“X 
CQ^'PLHV Q 

C'>:?LFX CASC-T(2T/3?) 


DATA IS«/-:/ 
FT=3. 1415926 


ORIGINAL PAGE IS 

ofpoorquautv 

L A j s i U A i V / > 

KFA'' = TDAIA(3) 

NCrin?.D=IDiTl(4) 

‘,P;’ = TDATi( 5 .' 

^‘-' = TD AT? ( 6 ) 
h*;=TD;TA('^) 

SSsTr.jiTM?) 

17J*sIDiT,i(3) 


FCl.-.''«?( T” ='/T'/' i* S ='/I5) 

PQ-’-fAK' ?; 5 ; 9 s*/I 3 / • KTHlrtTs'/IS) 


!* 7 s 5 DST?( 1 ) 

M?sFDArAC) 

Ly:sF 3 ATA( 3 ) 

Sr 3 ”;?arr)A‘'l( 4 ) 

STG’>'A5s5DiTS.(5) 

WVs.-.TATAC^i) 

WVIhr’J»-uATl( 7 ) 

*5a?DArU3) 

ECa-DAT5CA) 

X'-'.*skDA’.l(:il) 

A*VisK9A"‘A(l2) 

3 ''V=on*'rA( 13 ) 


SRs!?S*'.'^L* D" 


( 2 ) 









C <K?HS‘C‘’ AT 0>?!LL j/.** 3“;15 Thu 3-L*c-3l 


• fiv 1 • ’ 


7ei6 


crT*S3sl.-‘'i**2 

X •N?=*/"ir.4) 


w?l » A = £ V F ( 1 4 . 33T 9- V. ‘I • 2 ) 

S»*.s2, 

£-r.n^2*l ' -5 

I'lD'xse 

ivDrrtt-r’D-x*! 

A>osa-* 

I®*(nST.:.LT«£R?Q^) GT TC IIT 

50 '!*o ir? 


«W"«.MGEB 
Of POOR QUAUTY 


Xci^Ssl. 

GV;!?s(S=’**A''MT^XSia»*’^M"3)/*£TASi 

br£?I'sa.-siGM;>)/(s=A£«i) 

I-r*£ 

IDO'^sT 


S'-*?-*-!. 

ZO ▼?sl/‘‘?AO 


IF(".Lr.\-rOM(IOA?/l)) GO TO 221 
IF{7‘)1T.5T.*;0ST) TjATaXOA? 

Ca'"is(“-’"^£n«(lOAT/l))/(75*a'{TD.iT,l)-VG*:u »(T&i:-l,l)) 
DC *>1? t>:s:/7 

XX(TX-l)sV5r0'(T01I,IT)*0*LTA*(VG'^0'<(I0AI/U)-VG£OvnDA* 


7011 

7010 


rsx»(i)/2. 

al?“A3xxz(;) 

y«*xx(3) 

y?»r.x(4) 

xs«rx<5) 

x»*yx(5) 

n’MAtC &/ALf'*»ASpVS/> r./XS/XO OF R IS*) 
F0f’;jT(6r.i:.4) 


IF^tVORrEQ.-) 50 TO 412’ 


o o o o r»o o r» ci o f» o no no no ono 


C <MTK-0^iT.D>?ILLCV.f'::v;15 Ihu S-Dac-o! 2:17r‘I 1:2 


IK?£5?XAT£ TO 3TT ■'•A*: CI?CJ‘-lS‘£- £VTIAL “ACH AT THIS i 


4071 


lf(C*LT.VXC»CV(r3'3:/l)) 2? 73 4e^i 
nOTsTw^GT^l 

!*■( 10^7.07. lOOTs^JtfTLO 

0-LTAs(^-v:L0TV(IDuT/l))/(V*?L0CV(T30T/l)-Vf L3CV(I30?-1, 

X'’iL*7X0TV(IDjr/2;)4.35’LrA*(riL0CV(ID0T/2)-V-i.0:’.'( I33T-; 


4C15 




4«2e 


cnxTPJU- 


) r/ :sMT 
ACLsATA'’2(W!i^ <i) . 


"-’•tHrr; 
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C05«SsC03(;.LcHii) 

ST?,7.sss^:i(A-.p:*4S) 


FA? six?' -.'JV* (1 . /3TG " A?»«2-l •/5*^2) 

i^( 'VO? . £3 , : ) p Tisu.:* ( ^ rrirjfi/.’i s / ti 7 «-y th?ta/*'a/r ) 

PA.-.‘^2ft3TG ‘AC’Cys^Y?)/* 
t : 5 1 *'. aS AC* ( XS»'<\)* ( s:/“: -'»'JV/.“** 2 ) 

I?(n'np.?3.1) ?A:»T3»>T3**AC-(X?^XS)*(VT/'*A-MTH£rA/XA/R) 


V 'i; «5 n 5 2 ! * ( c A 5 T 1 - P A r. T ’ - F A ? T ’ ) 


?Hl3t?sS:*3TG *J C*’*(SIN;3*C3SJ3*.iy vm;)/k 


c 

c 

c 

c 


W*(V!:i,0"r /STO*3I‘;(!CL*tlF.i!i)**’B*‘TA**(-SS»*2) 
K«aV»c-yP(-I*(OHA3Sl4?nAS£2)) 


Kys-FHASnS 


M's'* A* ( 1 . ♦ ( ”0 V/ P ) *» 2 ) * * . 5 
lP(TV3?.50.1)“M?«(M\>»2*;<Ta£H**2)***5 


D) 

/D) 



C <^.?HfO“A!.D>F^LLCV.«‘D^;:? 


Thu 3-U4C-61 ::i7ry 


F 4 G“ 1:3 


c 

C 

C 

C 

c 

c 


c 

c 

c 

c 

c 
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K*5«* 5* S TG ' i C/ ( I . - ? ) 


HI S-; . * ^1* R* 3 ! i s /( ’’Vi «?•*?• s iS'^iC) 

H 2 s 7 .*PT*?*C 03 ; 3 /(.;VM':C*b* 3 r 5 '*AC) 


srip CALL A*»o sro'*: a* ??is fo^ or-:*:sTr£AM 

l?(ySTCV.?0.-l.) TO 323 

SFIO ORiS CALL i'TL? HrAO C*,LL5 ?0r THIS VALUE OF S(*SS) 
I^ISE.IT.TSS) GO ?G S^e 


30F 

FOSMAir '2IN’rUr TO 

302 

"••O'MATf "Ha'/l’ilfc 

304 

•OrV*xC 


;.?IT£(2^/3v’6) y'/Hl/r: 

306 

FO:-.*’AT(' *’Rs%:l6,4/' 


c 

c 


3ie 

75 ?r 


a 2 s'/£ 16 . 4 ,' NC?. 3 sM 2 > 
CALL ”.-<FE ((1. /?.),*:•<, r^GA-fyA^-»:^Hl/::2/VCHO?.D,OELTA?,IEA’) 


I-Cr.EO.SRn) ISSsSS 

or !c>'si^»lCH3tO 

C*Srr?(Ii.:,ICr)=D£L7AF(ICK) 

co»'»*r*Tj!’ 

Vr.TTE(‘/ 75 . 1 .'’) Ti’P 

'■U' C^O- FRO- I»JVEr 3IOS SOU ri».’£s % 13 ) 


7025 


C 

C 

C 

C 


308 


C 

c 




'’’JT®'*? 


®SESt(0iLTA?(I2)/lGsl/*rCHC?:') 

(D'LTA»(U)/I3*U»»CKOSO) 


co?rivu» 

2 '’UnaSlG‘:AC*F*(C<»'S*C 3 SAS-M’'-Sr!AS/?) 


ftMVS«CA?CET(ir,NCH0?D)/3. 
O'*KS7‘'(TK/NCh0SD)aQ‘?KS 
S*-*TC«1 . 


I 

I 


C 


c 


^KTH'‘0"ALD>FTLL0V. F c 


Thu 3-C<^c-81 ?:17?:< 


rSG- 


1:4 


C 

»;®I«s»;CHoro-l 
00 ’2^ Usi,. 

KHirsi.-.S'-TC/*’. 

S’*'TCs-SVTC 

THiTAs(T2-PI)/hCn0i?D 

QV!\iST’(I?,T'»)s:i3C£:(I,«/I- )*:?X?(I*Z!'’L*(l.«>C0S(T4iTA))) 
220 a**fi«sHVS*«HTC'?ATC!‘:(I?/IZ)*CiX?(I’Z‘’aD*'(:.»COS(T.-i''TA))) 

Q‘*N?S'J rs’v»(!.*( 'JV/?)»*2)*?T/!;CH0’D 


7022 


«cr •;?(' 


• • 

A ’ • / 1-^/ 




c 

c 

c 

c 

c 

c 

c 


<<*'NSs7*:”S*’^ 


SKIP 5>.nD- CALL A”D S'^0=L FO? D7#.-7STK£A*' 
I«?(X3T5V.:<J.-1.) <;U TO 7;J21 

A?3sX-N»j^ 


*H(s)s'/2=:t’.4) 
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p«j c-n(yc )s^ST • 

702C FOJ’Mt'c F3T(?)s'/rlc.S) 


C 

C 


nf.sITf>IrftrSI(l)+IE *531(2) 

c 

c 


7021 

CU«*.»?S’»SISSS*'!^’CO'?A?/r 
C®s(“'**Y3/J;-C’*\?*XS)’SIC^iC 
F •*?- F«CQ’*KS* FS I ST2( I F ) /KMIiS ) » C A 
FVN(I9)»H?N2 

FH<«!i:(P)«Ca-*»H:3n-PHAS£2 


200 ccN^r;u~ 

y? ??«>4 Jsl/N = A? 

2002 FC.-^A7(T4,3T14.5) 

2004 COjrivO" 

DO ’77 ''aU’J.’;:-! 
a^**5»(?h»SP(?0»?'*AS£(N^l)) 

Xs.4’(?HAS2(\>1)-**H;S5’(N)) 

IF(»BS(y)*LT.7.00l) GO TO 268 

fc’a^IvCyi/C’.-X) 

wi«(six(x)/y-cos(X))/( 4 .»x) 

CO »0 26v " 

268 

Vl«X»(l.-X»-2/l^.)/6. 

269 CON i«.o* 

Fwj.’S»CMJ.S*02Lr;X»C;.XPa*G>)»<(K7-T*Wl)^FM’!(V)*( vC*2»Kl)*F- .(..♦!) 

*») 


'PpHm 


4 ' 




< - f- 


's r' 






C <K?hi(j=;i.j>?^LLCV,F0.7;i5 Thu 3-0sc-31 ?:17?.y 


F » 

^ «r 


i:5 


270 

C 


C 

CC 

C 

C 

c 

300? 

8101 

6103 

850? 

6600 

70?2 

70Pfr 

72?0 

900? 

820? 

8201 

8262 

040? 

72?2 


COK'^IVU*- 

i r,?s.p 7 s«*-VA*j£’ 3 I 7 ?.*,C/(rI»(l.-STG-' 4 ;*» 2 )> 

F%”U’<s?.*K»';<S*’S.^«:T*(c;ES(PK*;S)»r£TA^J*i.VA*.’E»SIGKAC)*- 

P 3 V n gr>i- ( i , . 3 IJ ♦ 2 ) • ( ( It • MT ) +X 5 1 G'l* ) **2 

RrLPW=sPaV’!,U,V ?3 o**: 

RrL?F.LsK'.*iL^n:(i<£L’j»r.) 


I»(.TSTGV.L7.?.) G7 TO 9PS.’ 
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'••=I?£(5/?03’) 

P 9 f v 4 XCJJ?ST ?£4 : •) 

WFlfi (5^8161) G**:;s 

F0?’'A7(' 7V?vj» »'/216.3) 

V-I*"i(5/S122) AM.SS 

Fa?*'4T(' ‘'uH- A‘'?LirOP* »'/2£16.8) 

►srstS/S?;?) 

F0?.**AT(' SU" f'? ALL -FAO.-tS III FSl CALC’JLATIOLS «%I5) 
VRTT- (5/8^37) srLPkL 

paATfVT 307:»r' FOYiP L:V£L F3?. ••»Q0£(D»-)s'/£16,4) 
?u 7?.?^ Ir»l/:r.A7 

psSn-'4k+(I?-lO*(l.-£I3‘*A?)/('?kA0-l.) 

Fu- '.A?(5X/^*^1J.4) 
cc'’:rK’.»£ 

*^ 3 ?r/TC r*JD y apsT-tiA* r;Ti 3 ?ATn%") 

VSTGVa-X, 

3®vP(!)ai<FLF/? 

GT 70 III 
a?IT2<S/82C?) 

F o:- '♦ 4 7 ( "’ PO V »,'3 T ? 5 S 4 ' ) 

w?iTfct5,a2ri) G^.'is 

F'5k*'A7(' GAMMA *VJ,3E s', *10. 8) 

>.ci'^£C5,33;2) A'.'i7 

F0y“*T(' mg 3? AvpLiTuDt *',2£16.8) 

•-FITS<5,8^?.*) I~k 

F^kmaTC 8U‘ nc all £8^0?. 3 r« ?SI CALCULATIONS *',I8) 

V»I'^£(5,68*’") .•V*‘L®?.L 

S?';®(2)s?*LP^:= 

®0:.vA7(' £00 DOt'N^rRaAM Ivr*G8A7nK') 

K^TOk*; 

f.^’0 


RWi i wwi i w iipp^ 
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PROGRAM NAINTI 


^1^8 Is ft cftlllng progrftm to 
control the eomputfttlon of 
pressure dfttft for the Inlet 
turbulence cftse. 
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C <MTHEOBALO>i4AlNTl«fOR>13 UtA 24-Stp-80 3; 23PM 


PACE 1 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

If 01 
2002 


2102 

M03 


2103 

2004 


2104 

C 

C 

2000 


2106 


PROGRAM MAIVri 

DIMENSION lOATA(l0)/ROATA(20),f6EOM(10r7) 
REAL MT,MA 

INTECEK PSTARr/PEND#P/PilANae#PST£P 
DATA (IDArA(J)/Jsl/10)/10*0/ 

DATA (RDATA(J),Jsl,20)/20*:0.0/ 


ROTOR INFLOW TURBOLENCE — MATRIX STORAGE PROGRAM 

THIS program group CALCULATES AND STORES VECTORS OP 
THE COMPLEX PRESSURE DISTRIBUTION ACROSS TdE ROTOR BLADE. 

DATA required T3 EXECUTE THIS ROUTINE INCLUDE: 

1. BLADE GEOMETRY 

2. ROTOR OPERATING SPEEDS 

3. NUMBER OP RADIAL AND CilOROWISE POSITIONS AT NHICH T«E 
PRESSURES ARE CALCULATED 

4. PREQUENCV RANGE OP INTEREST (EXPRESSED IN TERMS 
OP HARMONIC ORDER OP SHAPT ROTATION). 

THE RANGE OP CIRCUMPERENTIAL MODE NUMBER M IS 0 TO NBLADE*! 

NCHORD MUST BE SO GREATER THAN 20. 


rORMAT(G20.B) 

HR1TE(5,2002) 

PORMATC* NBLADEs') 

READ(5,1001) NBLADE 
«RXT£(3/2102) NBLADE 
PORMAT(' N6LA0E«*rI3) 

HR1TE(S,2003) 

PORMATC* HUB RADIUS DlflDBD BY DUCT RADIUS «*) 
KSAD(5/1001) S16MAR 
NR1TB(5,2103) SI6MAR 
PORMAT(* SI6MAR«%B16.B) 

BRXTC(9/2004) 

PORMATC* BLADE TIP CHORD OIVIOBO BY DUCT RADIUS**) 
RBAO(5/1001) S16MAC 
NRITB(l>r2104) SIGMAC 
PORMATC* SIGNAO'^EU.B) 


BR1TE(S#2006) 
rORMATC* HO At »*) 
RBAD(5,1I01) NOAT 
toRlTE(9,21B6) NDAY 
POKNAT(* NDAT*%13) 
URlTB(5,20f7) 


ORIQINAL PAGE 13 
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C <MTtlEUi)AU;>NAlNTI»P0R;13 4%i 24»S«R-80 3:23PN PACE 111 


2107 

2008 

C 

c 


2009 


2010 


2011 


10 

C 

c 

2020 


2120 

U 

C 

c 

2030 


2U0 

2031 


2131 

C 

C 

203S 


21 3S 
2036 


nu 

e 


PORMAU* BLADE CB3METRY MATRIX I0PUT') 

4R1T£(5#2008) 

PORMATC* PEED MATRIX IN ONE RON AT A TUS^ PROM HUB TO TIP*) 


DO 10 1RUN«1/N0AT 
HR1TE(5,20N9) IRON 
PORMATI* RON«*/I3r* R/R)OCT *') 
REAO(5,1001) V6E0M(IR3N,1) 
nRITE(9#2010) 

PORMATC C/CTIP «') 

RBAD(S,1001) y6EOM(IR3H,2) 
mR1T£(S,2011) 

PORNATC* cm (0B6REBS)«*) 
RE34Kt#1001) PCBOMaR3H/3) 
V8BOll(IRON/3)«fCE3N(lROif^3)*«0174$33 
CONTINUE 


ORIGINM. PAOE It 
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NRlTECS/2020) 

PORNATi* BLADE GEOMETRY MATRIX IS*) 

DO 11 1R0N«1^N0AT 

NR1TE(5/2120) (V6B0N(lR0NrIC0LMN),lC0LMf«l,3) 
PORNATC* %7E10.3) 

CONTINUE 


NRIT£(5/2030) 

FORMAT!* Ml «*) 
KEADCS#1001) NT 
NR1TE(S,2130) NT 
FORMAT!* MT«*,E16.8) 
HRITE!S/2031) 

FORMAT!* NA «*) 

READ! 5, 1001) JIA 
NR1TE!S,2131) MA 
FORMAT!* MA «*,E16.8) 


NR1TE!5,2035) 

FORMAT!* NUMBER OF RADIAL STATIONS «*) 
RBAD!S#1001) NKAD 
MR1TE!S,2135) NRAO 
FORMAT!* NRAD«*,I4) 

MRITt!5r2036) 

FORMAT!* NUNmBR OF CMORONISE STATIONS >*) 
READ! 5# 1801) NCHORO 
NR1TE!S#2136) RCMORD 
FORMAT!* NCNORO«*#14) 


no on on 


C <MTil£UclACU>MAlNTI.P0R;13 <<•(] 24-S«p-80 3t23PN PACE l22 


C 

WRITE (Sr 100) 

lilt iOHMff'' START FREmUENCTCHARMONIC NO. OP SHAFT )«*) 
RBAOCSrlESl) PSTART 
WRITe(5rll0) PSTART 
110 FOKNATC* PSTARTs'rll) 

HRIT£(Srl20) 

130 FORNATC* END FREQtfENCrCHARNONlC HO. OF SHAFT)*') 
READ(5rl001) PEND 
WRIT£(5/130) pend 
130 FORNATC* P EHD«'rI4) 


NRITE(Srl40) 

140 FORNATC' FRE032HCT STEP SIZE (HARMONIC 3R0ER8) 
REAO($rl001) PSTEP 
HRltE4$/150) PSTEP 
IS0 FORMATC' PSTB?*'/I4) 

PRANGB«(PCNO-PSriRT)/PSTCP^l 

10ATA(2)»NHUOB 

I0ATA(3)*NRA0 


»') 


10ATA(4)*NCH0R0 

10ATA(»)*NOAT 

10ATA(6)«PSTA1T 

10ATA(7)«PEN0 

10ATA(8)*PSTEP 


original page is 

OF POOR C ALITY 


RDATA(1)«MT 

R0ATA(2)«MA 

K0ATA(4)«S1GMAC 

RDATA(5)«8X6NAR 


CALL ROTOKSdOITArRUATArVGBOM) 
STOP 
END 
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PR06RAN ROTORS 


Program calculates and stores 
the pressures generated on a 
turbofan rotor by Inlet tur- 
bulence. 


j\: 



22 


onc:n n onor. none. r. a c. o nor. r. o or. 


t'iiivS 


1 


C Jndaf'UK/ 14 


Mod y;dlAM 


dUbdiluTiN^ KOTOKSiiuAlA/HOATA/dd&JKi 


AUJUblAdLE UlMbitSiaw &TaT£.m£,mTS US£i) TO MIMImIaE STOkA^E 
Kt«4Uik&<iANTS Ji> maTKIA CASC&T 

Ul!i£kdl0ff Uf nZlTkif~29 

ulrtENSiOM JF CA$CEr-(HCrtUitt)^kkAj/iilkLAC£/FKAIito£i 

MUlb MunuitA MUdV oA kJ tfAAAYftk TaAw 29 
uiMErtsilUN ubLfAF(2F> 

Ui.MErfSiUk v«£0>ii ld,7>/ RU ATA( 29), lUATAi Idi/ AAi6> 

UiMEMSiUk CAS»C6fi9/9/l9/9J 
Ai7X> 

aFaL Ao/kF/MA/.M? 

CJ'IFL&a i/UbbTAH/CAdCET 

1mYa«k,K FkTAk'l/Fblitf/F/ritAflikc.^C'ai&t* 

Fi-d«l4l9y2o 

ORlQiNAL PAGE IS 
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koLAU£«luATAi J> 

knAU«iuATi»i3i 

AC9jKU«iUATAiHi 

kuAl*iuAlAi9i 

rdTA»»T<sXUAtAloi 

FbftUslUAtA(7) 

kSTtP-sXUATAiOi 


<it-kwA'i.Ail> 

aasRi/ATAC'X} 

9XwNACaj<UATA(4) 

5i«>4Ak-rfkUATAv9X 


XAiTlAitXAS XUAT X'Uk toSOtlETklC DATA 
XuAT^A 

«KiT£i9/lo9i 

FUKrtATi* ENtS.k TITLE fUd uATA FXLEvitAA 7i CnAkACtAkSi*} 
MAiAUiS/lOl^di A 
PiJP(1AT(72Al> 

klAk'i t«daF9 IJ wAi*t« vA9i>*o£<»Xm Al'iit i*UUF an kAdXAa* 
FU9l?iUA TJ MXMMU£ IMTSAFOLATIOII. 

uO did Xk^l^FKAU 






« 





CiO r.non nnn no on non oor.n on 


C 


<MTrt2UoAl^Uyi»0T0KS.tUH>14 w«a 23-Sei'-dl yidlAM 


FAwE l:i 



c 

Ka&luMAF-rClft-l# I’’ (l.-dI»»MAR >/ (.<RAU-1. > 
iF(K*L£« V«#£iJfl(lUAt/ l)i uU TO 2i21 
Lukt^Lukt 

ir\lUAT.bT.NUAT> iUAT-MUAT 
’ 201 U£LTA«(h'/<*£OM(iUMT/l>i/iVMEJKUJAT/l)<-Vt^£UrfUOAT-l/l>> 

UU 21 :^ Xa^ 2/3 

2U XXi£X-lj>Vas.u iiIuA4/XXi»uc.4.TA^i tfwtJ«nll/AX/lXi-«wbU»iXoAl-l/lAii 
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e«AAvl 2 / 2 * 

Will -XX( 2 i 

A.^lT£(21/7gi2) d/CHi/P 

FUkkATi' Cnl-'/2lS5.4^' K3%S10.4> 


WJSCnX«CU 5 iC(li> 

dXACaX-sdldiCtoXi 

uUiJPS On rlilUE IiUMbEH M AnO FK£«iUStiCi( COUiiTEH P 

uJ d'^O riwvJU>«l»lyNd«»Aua 
MM-.iCUUrtT-l 

ip iS .StJKAUb CJO:«TbK ruK PAKAH&7e.P P iN fiATNlA CASCeT 


UO d)o P^P^TaPT/PENiI^PSTEP 
XpalPU 


(Jilbwaw^nl* aX uNAC *o*‘i P” itAi 




KO* N’i/ v»»*lAw*iP" 

SIwMA«- 2 **Pl'KM/ridLA 0 L 
C 
C 

2 • * P i * M o to A d r«/ a 1 to ^ A C/ d 





C 

C 



or.fto. f.r.no onr onr. o ones « oconn 


C OlXfiiJdALu/RuTUK;>.rc)P.>l4 m^a 2i-S-»p-dl v:3lAN 


t»A(*£ 1:2 


jrvhf. -f-z f 'f gjr-" 




J0I 

i0a 

J04 

i06 


i'JPrtAT('5lI.VJt TO bOdPJdTlRE CASC'i 
MAlT£i21/3>«2i UME^inC 
I'UKMATi' Urt&'ioC-'/Lia.4i 
««(XTc>i2l/454i 4<i/Kd/di<»MA 
FUK«AT(' mk-'/ 21 Kd-‘'/ElH,4/' Si(»MAx'/ei0.4) 

nhx7£:i2l/3 )ej (i/Citi/NC(iOKi) 

f j;t?iATi' a-*/fclC*4/' Cill-*/tl0#4/' ii<0dJMU«'/13i 


C kuL CASC i 0*l£ todC/ Hii/ K d/ SI MAh, A, Cri 1/ NCdOKU/dELTAF/ lERFI 

dtu<Ui nadU4.t^ Ur CASc in ituitAua dAldlX rUit 
matrix FUSITION DESCRIPTORS aRB<IS ORDER Mi APpEARANCEi: 
1. CHGKUdlSE PUSiTlUNiTKAiblNa TO uSAUImu EDwESi 
2* RADIAL PaSiTilJDiUiidSR RaDAUS TO OUTER RADXUSi 
3* CXRtoUAraKaRl J al RUUa uartdLR * 1 irirli 
4. ORDER Mi r'RE4<UENCy CUMpDTAT10.NS(FlR3t TO LAST> 
ulTit: XR«1 FOR PSTART 

XP>PrANw& A'Uh PftiiU 


UJ old iJR-I/ dCitORu 
w AdCbl i X wR/ XR/ rC JUa iv X P i<sDb Li AP i X CA> 

CORTlRUS 

•*KiTEiS/769J> ISKP 

7d4S PUKMATi' ERROR COUb PROM XNtfERSiON R0aTXME«Vl3> 

«rtiTfei2l/7P25> 

702a FUKnATi* OUTPUT PROH CASC:(05LTAP<Xu>/XO«l/NCdORD*7 

nRXTL 121/70327 iUC.L?APiX47/XaAl/NCftORu7 
7082 rUHnAliaX/OLlS^Mi 



CONTINUE 

STuRa MATrXx op PRaSSURb PaLUES ON T«£ DXSA POR LAtbR' 
pRuCbaalRM og uToEr pruurA«iS« 


call aKlLE(23/*R0T0*> 

•RlTb i23i A 

• RXlE i23i XlAXA original page » 

nRXTE (23i RU4TA OF POOR QUALflY 

RrXTS (2i) UUSOM 

i(iK4Tl!« 1^3^ WA^CliT 




r. n 


C <MTii2;0oALu>i<0Ti)rtS.r0i>/l4 


»«u jlAM 


ekQt 1:3 


C 


SmUPILS 23 

STUP 

SNi) 
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c 
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i, 

I 


t 

C 


PROGRAM INSRCa 
DIMENSION CASCST(dr5rl5^5) 

DIMENSIUN IERCa)/lOATA(10) 

DIMENSION RDArA(20)#?3EOMa0>7),POHSR(2)rSPilR(2),RELPR(2) 
DIMENSION NPC3N(4) 

DIMENSION A(72> 

integer PRANGG,PEND,PSTARr,PSTBP 
COMPLEX CASCET 
REAL MT,MA 

OATA(PONCR(J)#J<l/2)/2*0. 0/ 


C 

C 

C - 

C CALLING PROGRAM FOR INTOR3 TO SEARCH OUT AN) CALCULATE 
C ALL PROPAGATING NODES AT A GIfEN POSITIVE PREOUENCY* 

C 


C 

C OPEN FILE **ROTO” AND READ INPUT ARRAYS 
C INCLUDING MAIN STORAGE MATRIX "•CASCET*^ 

C 

C*****NOTE THAT "ROTO” IS A SEQUENTIAL UNPORNATTEO BINARY PILE— 
- C 

C ORDER UP STORAGEsA/IDATA/RUATA/VGEOM, CASCET 


c 


CALL IPILE(23#'ROTO*) 
READ (23) A 
READ (23) lOATA 
READ (23) ROATA 
, READ (23) V6S0N 

- - READ (23) CASCET 

ENOPILE 23 

. ■ C 

C 


NRIT£(3/5) 

5 PORMAT(* USBR*ASS1GNE) TITLE OP DATA SET PROM PILE "ROTO" IS*) 
NRXTE(5#6) A 

6 PORMAT(* */72Al) 

PSTART*10ATA(9) 

PEN0«I0ATA(7) 

PSTBP«X0ATA(8) 

PRA NGE> (PEND*P8TART)/PSTEP 

NPCON(l)«PSrART 

HPCON(2)«PENO 

MPC0N(3)»P#1BP _ ^ 

NPC0N(4)sPRAN6S . ORIQIHAL PAGE IS 

C OF POOR QUALirr. 

C 


I 
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C ENTER NOISE FREQUENCY OF INrEREST(MUST 8E POSITIVE FREWUENCY) 
C 

1001 FORNAT(G20.8) 

MR1TE(5/110) 

110 FORMAT! * NOISE FREQUENCY/SHAFT FREQUBNCYs') 

REAO(5/1001) OMEGA 
R0ATA(8)s0NE6A 

liS FORMAT!' aME6As',B10*4) 

MRITE!»/115) ROATAO) 

C 

C SELECT NO. OF RADIAL POSITIONS TO INTERPO:.ATE PRESSURES 
C !ASS0M£0 TdAT NRAOMU.GE.NRAD) 

C 

C*****NOTE: NRADNO MUST BE .LI.30 UNLESS DIMENSION STATEMENTS IN 


C 


2007 


2137 

2038 


2138 


"INTURB* ARE TO BE MODIFIED 
ARITE!3/120) 

FORMAT!' NUMBER OF RADIAL POSITIONS FOR ACOUSTIC COMP.s') 
READ!5,1001) NRAONU 
IDATA!1)«NRADKU 
WRITE!5,130) IDATA(l) 

FORMAT!* NRADNUs',14) 

NRITB!5,2037) 

fOKNAT!' ACCURACY OF BESSEL FNS«') 

READ!5,1001) SB 
WR1TE!5,2137) EB 
FORMAT!' EBs'rE10.4) 

•RITE!»/2038) 

FORMAT!' ACCURACY OF CONVERGENCE TO ROOI XMNs') 
READ!S^1001) SC 
•RITE!a,2138) EC 
FORMAT!' ECs',E10.4) 

R0ATA!9)«EB 

RDATA!10)«EC 

MTsRUATA!!} 

MA8RDATA(2) 

SI6MAR*R0ATA!S) 


XMAXsUME6A*MT^(1.-MA**2)**.5 


NRlT£(i/2001) XMAX 

2001 FORMAT!' XMN!MAX) FOR PROPAGATION >'/S16.8) 

C 

C 

c 

c 

c 

C START nITH plane NAVE MOOS (0rl)« COUNT OP IN Nr THEN N 
C UNTIL ALL POSSIBLE HIGHER MOOES ARE CUT OFF. 
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ORIGINAL J5 

OF POOR QUALfTY 


RESTART H COUNT HERE POR NEH M 


INCREMENT N 
NsN4>1 


MANS«1A6SCN) 


CALL ANRT (NASS/N#SICHAR#SN^EC/Xl4N/lEB/IEC) 


ir NODE IS CUT OFPy GO TO 6000 
If(XHN.GE.XNAX) S3 TO 6000 


HRITE(5,3000) 

3000 PORMAT<'0MOOE DATA') 

mRI '£(5,3001) OMEGA, N,N^XMN 

3001 FOKMAT('0OMBCA«',B10.4,' M«',I3,' Ma',I3,' XMN« 

1F(XNN.EQ.0.) GO TO 1000 
COPFRA«XMAX/XMN 
mR1T£<6,4000) COPPRA 

4000 PORMATC* CUTOFF RATIO FOR MOOE«',B10.4) 

60 TO 1005 
1000 CONTINUE 

NRlTAf5,4005) 

4005 FORMATC* PLANE WAVE N30B: CUTOFF RATIO IS ♦ INFINITE*) 
1105 CONTINUE 

WRITE(»,3002) IBN 

3f02 FQRMAt(* SUN OF BBSSE; FUICTION ERROR COOES »*,Z3) 
HRITE(S,3003) XBC 

3if^ FORMAT!* ERROR CODE FOR CONVERGENCE TO ROOT XNN «*,I3) 

9 -y 

NORMALIZE NODE AMPLITUDE 
C 

CALL EIGEN (NA0S,SI6NAR,XNN#ANN,SMN,EB,IBR) 


XMN«*,E10.4) 


«RITC(5,3f04) ANNrBMN 




a». aifc»H*^l‘ 
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i 


/ 

i 


» 


t 


I 


3004 

3005 
C 

C 


c 

c 



F0KMAT(* ANN s%ei6.8r' BMM «',E16.8) 

WRITE(5,3005) lER 

POR««AT(* ERROR CODE P3R BESSEL PNS IN AMN AND 6NN CALC s'/8Z2) 


ROATAUDsXMN 

R0ATA(12)«AMN 

K0ATAa3)sNNN 

10ATA<6)«M 

10ATA(7)sN 
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CALL INrURB(Il)ATA/ROATA/VSZOMrSPNR,CASCErrNPCON) 
P0tfER(l)sP3WER(l)4>SPffR(l) 
POiiSR(2)sP3«SR(2)^SPWR(2) 


NOf SWITCH SIGN ON M If Ns0 
XF(N.EQ.0) G3 TO 20 
10ATA(6)s-lDArA(6) 


C 

C 

WR1TCC5/8300) lDArA(6),10ATA(7),RDATA(8) 

8300 PORMAt(^0MsM5/* OMEGA«',E10.4) 

C 

C SWITCH SIGN ON M AND RECALCtfLATC 
C 

CALL INTURB(IOATA,ROArA/VSEON,SPWR/CASCSTrHPCON) 
potfBkd )»Pa4ERa)^sp<iRa ) 
PONER<2)«PONER(2)»SPWR(2) 

C 

C 

IOATA(6)«-IOATA<6) 


C 

c 

60 TO 20 


C 

c 

c 

c 

c 

C XP MODE IS CUTOPPr OECIOE WHICH WOOB TO TRY NEXT. 
C 

008f IFOr.EQ.l) 60 TO 7000 

C 

C 


i 





( 



I 

I 



i 



NNAX«N«1 

«R1T£(S,6001) NMAX 


I 





« 44 ; 
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6001 

C 


FOftNAT('0LAR6EST PROPAGAflJiG V fOR THIS N «'/I3) 


JsJ^l 

INCREMENT H 

H9A*l 

60 TO 15 


ORIGINAL PAGE 18 
OF POOR QUALITY 


C 

C Nsl 

7000 
C 

C 

7001 
II 

9001 


TO REACH THIS POINT 
CONTINUE 


5215 

550 


5315 

5610 

600 

610 


5415 

63 ^ 

630 


MR1TE(5,7001) 

FORNAT(* NO M3RE PROPAGATING MOOES FOR THIS OMEGA') 

CONTINUE 

«RIT£(5/9001) 

FORMAT!' PROfi:.EM COMP:.ETEO') 

00 550 JJslr2 

lF(POWER(JJ).Ea.0.) 60 TO 5215 

REtPk(JJ)»10.*ALOG10(AdS(PONER(JJ))) 

GO TO 550 

RELPR(JJ)sl.E«>35 

CONTINUE 

IF(RELPRa).Ea.l.S4>35) GO TO 5315 
WRITE(5,610) RSLPR(l) 

60 TO 600 
NRI TE(S#5S10) 

FORMAT!' PRGQOENCT IS CUT OFF') 

CONTINUE 

FORMAT!' RELAriVE PONSR SPECTRAL DSNSlTT LEVEL UPSTREAM«',E10.4) 
IF!RELPR!2).EQ.1.E#35) 60 TO 5415 
WRITE!S,630) RELPR!2) 

60 TO 620 
NRITS!S/5610) 

CONTINUE 

FORMAT!* RBL. PONER SPECTRAL OENSITV LEVEL OONNSTREAM«*#E10*4) 
STOP 
END 
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SUBROUTINE lNTUilB(10ArA,RDArA,V6EaN,SPtfR/:ASCET/NPCaN) 


PROGRAM COMPUTES THE SOUND POWER GENERATE) BY A TURBOPAN 
ROTOR SUBJECTED TO INLET TURBULENCE. THIS IS A SIMPLIFIED 
VEKSION SUITABLE POR VERY SMALL TURBULENCE LENGTH SCALES 
IN THE RADIAL DIRECTION 


PROGRAM INTERPOLATES IN RAUUL POSITION ANU FREQUENCY FROM A 
STORED MATRIX OP PRESSU.U DISTRIBUTIONS («AME«CASCET) 


DIMENSION BGEOM(10<7)^ROArA(20)/IOATA(10)/XX(6)/IERPSI(2)/$PBR(2) 
OIMENSION BJC20) 

DIMENSION CASCST(8,S,1S,S) 

DIMENSION PSISIO(30)/NPCOM(4),RR(30),RRNU(30) 

Integer P/PSTEP/PRANGE^PSTAftT/PENO 
REAL KMNS/MT/MA,LR/LTHETAfLX 
COMPLEX I/0ELTAP/DMNS,CAS;ET 
COMPLEX Z^RRSfRRRS/QMNST 
COMPLEX i 


OIMENSION OF PSISTO AND RRNU MUST BE .GE. NRAOKU 
DIMENSION OP RR MUST BE .GE.NRAD 


13(0.,1.) 

PIs3.1415926 


NRAONUsIOATACI) 

MBLA0B*I0ATA(2) 

NRAD«IDATA(3) 

NCHORD«IOATA(4) 

N0AT«I0ATA(5) 

MM«IDATA(6) 

NN«IDATA(7) 

OMEGA«RDATA(8) 

PRAN6E»NPCON(4) 

PSTART«NPCON(U 

PEN0«NPC0N(2) 

PSTBPaNPCONO) 

SX6MAR*ROATA(5) 


ORIQINAL page 18 ^ 
OF POOR QUALITY 


I 


MRITB(5,8300) MM,NN#OHBGA 

•3if FORNAT(*IM«*rI5/* N«%15#* 0HB3A«%BII.4) 

MRITB(21#830f) MM,NN/2MBGA 
NRlTB(21/7f0) 
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T00 PORMATC' INTURB EXECtiriON') 

kRITE(21/7204) NRAO/NCMOMO 

7204 furmatc nrao**/I3,' m:horo=%i3) 

C 

C 

C LIST N0NUIMENSI3NAL RADIAL POSITIONS UklUkBLZ IN STORED 
C DATA (NEEDED FOR INTERPOLATION) 

C 

DO 5 IR«1/NRAD 

R«SICMAR«>(IR«1 • )*(1«-$IGnAR)/(NRAD-1« ) 

RR(IR)«R 

5 CONTINDE ORIGINAL PAGE 18 

OF POOR QUALITY 


WRITE(21,6) 

FORMATi* K VALUES PROM STORAGE ARE*) 

WRlTE(21/8) RR 

FORMAT(7E10«4) 


NT«RDATA(1) 

MA«RDATA(2) 

SIGMA C«RDATA(4) 

EBsRDATA(9) 

£CsROATA(10) 

XNNsRDATA(ll) 

AMN3KDATA(12) 

BMN«R0ATA(13) 

INITIALIZE ERROR ACCUMULATOR IN PSI CALCULATIONS 
lEk«0 


LIST NONOIMENSIONAL RADIAL POSITIONS TO NS USED IN INTERPOLATION 


00 7 IRHOal^NRAONU 

KsSlGNAR»(lRNU*l«)*a«*SI6MAiO/(NRAONU*l.) 

RRNU(XRKU)«R 

CONm^l; MO STORE NODE SHAPE NBI6HTZI6 AT BACH RADIUS 
ARDMilHI*R 

cjLh- RNOOB CNN, ARC, ANN, BHN,P$I,EB, lERPSI ) 
f^STO(IRNU)«PSl 
lEKaXSRflSRPSECD^IBRPSKO) 

7 CONTINHB 
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C 

C 

0RlTE(21/9) 

9 PORMATC' R VA:.UES FOR INTERPOLATION ARB*) 

NRlTE(2I/8) RRNO 
«ftITE(21/ll) 

U FORNATC' PSISTO VALVES ARE') 

WRirE(21/3) PSIST3 
C 
C 

BErASQ«l.-NA**2 

KHNS«(((0NE6A*KT)M2-BETASQ*XMN»*2)**.S)*ABS(0NE6A)/0NE6A 
NRITfi<21/7aJB) KNN8 
7018 FORMAT!' KMNS«'/n0.4) 

C 

C 

C CHECK TO BE SURE MODE M0M8ER N IS IN RANGE OF STORED DATA 
C 

IP(MN*LT.0) GO TO 300 
C 

C for POSITIVE M/ HANT 0.LE.M.LE.CNBLAUE-1) ' 

C 

1P(0.LE.NM*ANO.MN«LS«(NBLAOE-1)) 60 Tl 310 
C 

C IF N POSITIVE BilT OUT OF RANGE/ SUtfTRACT 1NT£6£R*NBLAD£ 

C 

NTRIAL «NM 
NTR1ALS0 
320 CONTINUE 

NTRIAL«NTRIAL4>1 

NS0N«NTR1AL*NTRIAL*NBLA3E 

IP(0.LS*NSUN.ANO.MSUH.LS*(NBLAOE-1}) GO TO 330 
60 TO 320 

330 MUSE«N8UM«1 

60 TO 340 
C 

C FOR NEGATIVE M/ ADO INTS6BR*N8LA0E TO M 
C 

300 MTRIALsMM 

NTR1AL«0 
3S0 CONTINUE 

NTR1AL«NTR1AL«>1 

M8UNsNTRIAUNTRIAL*NBLA0S 

IF(0«LE«NSUN«ANO.MSUN«I.C«<NBLAOE*1)) 60 TO 360 
60 TO 350 

360 NUSE«MSUM4>1 

60 TO 340 
C 

330 MUSCsNNFl 

C 

340 CONTINUE 

ORiGiNAL PAGE IS 
OF POOR QUALTIY 
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„ WR1TEC21/341) MM/MUSE 

I 341 FORMAIC MM«%I5/* MUSEs'/I5) 


C SEARCH HARMONIC ORDERS FOR fREaUENCY INTERPOLATION 

C 

c «ant pmid.ls.omsga.le.pmax 

c 


IP(NM«LT«0) 63 TO 400 
NOPHINspSTART 


i:3 


NOPMAXspENO oUALmf 

DO 10 psPSTART/PEND-PSTEP^PSTEP OF POOR 

IP (ONEGA. 6E.(1«*P>) NOPMlNsP 
10 CONTINUE 

DO 20 P«PEND/PSTART/-PSTEP 
IP {0NE6A.LT.(1.*P)) NUPMIXsP 
20 CONTINOE 

60 TO 490 


C 

c 

400 CONTINUE 
, C 

' C FOR NODE NUMBER N.LT.0 MUST SHIFT FREQUENCY PARAMETER TO 
C RETRIEVE CASCET DATA. 

C EQOI V. (ON£SA)sQMSGA^ABS (MM)#NSUM 

C 

EQOMB6sONEGA<^IA3$(NM)4>MSUM 

NOPMINsPSTART 

NUPMAX«P£ND 

00 410 PaPSTART^PEND-PSTEP/PSTEP 
IF(BQ0NE6.6S«(1.*P)) NUPMIN«P 
410 CONTINUE 

00 420 PsPENO,PSTART,-PSTEP 
. IF(BmOME6«LT.(1.*P)) njpnax«p 

k 420 CONTINOE 
C 
6 

490 CONTINUE 


e 


c CONVERT TO FIND ZP PARAMETER OF DATA STORAGE iN CASCET 
C 

1P«0 

00 2S P»PSTART#PBNOrPSt!P 

ZP»IPn 

1PP«P 

IP CNUPNZN.SQ.ZPP) ZPNtNstP 
IP (NOPNAX.SQ.IPP) IPMAXatP 
20 CONTINUE 
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C 

WR1TE<21/21) NUPMlNfNUP4AK 

21 PORMATf MUPNlMs*/I5/' A;? *•/ IS) 
j<R1TE(21/22) IPMIN/IP1AX 

22 rOiitMAT(^ IP1INa%I5,' UU^^ ',15) 

C 

C 

C KILL PROCRAN IP DESIRED IS OUT OF RANGE OP DATA 

PSTARFaPLrAriPStART) 

PENOPsPLOAT(PSHD) 

ONE 6AT> OMEGA 

IP (MN.LT.0) 3MEGATSE30NE3 

IF(PSTARP.LE*3MEGAT.APD.3NEGAT«LE.PEN0P) GO TO 343 
MRIT£(5,343) 

342 PCRMATI* PREhUEHCY OGI OP RANGE OF DATA FILE') 

STOP 

343 CONTINUE 
C 

C 

U0 XSIGNsl. 

C 

C******««*« return to LINS (111) TO REPEAT FOR OONNSTRBAM 
C PROPAGATION ****:*•.*************************»*•****•*•*• 

C 

111 GMNSs(NT*NA*DN£6AoXSI5N*K4NS)/BETASQ 

C 

C INITIALIZE VARIAttLES 

C ISUNR IS EIROR CODS AC:ONULATOR FOR 3ESSEL WEIGHTING FUNCTION 

C PNNS IS RESULT OP DOUBLE INTEGRAL 

C S«TR IS WEIGHTING SIGN FUNCTION FOR RADIAL INTEGRATION 

C 

PMNS*0# 

DELTAR«(1«-SI3NAR)/(NRADN3-1) 

1SUMR«0 

IDAT>2 

C 

C 

SWTRs-1, 

C 


£•«•••••«*# START RADIAL INTEGRATION LOOP HERE ***••*•**• 

C 

DO 901 IRNU«1/NRADNU 

C 

C 

C 

C RADIAL POSITION SEARCH FOR INTERPOLATION COORDINATES 

e 

C WANT RR(IRNtN).LB.RRN0aRNU)«LE.RRaR4AX) 

C ***NOTBt RRC1)*RRND(1) 

C RR(NRAO)«RRNO(NRAONO) 


ORKHNAL PAOl It 
OP POOR guALiry 
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IF (IRNO.EQ.l) 60 TO 50 ORIGINAL PAGE » 

IP (IRHU.Bii.NRADMU) G3 TO 60 OP POOR QUALIIY 

IRMINsl 

IRMAXsNRAO 

00 30 I RsU If RAO- 1/1 

IF (RKNU(1RNU).6E.RK(IR)) iRMlNsIR 
30 CONTINUE 

DO 40 1RSNRAD/1/-1 

IP (RRNU(IRNO).Lr.RR(IR)) IRMAXsIR 
40 CONTINUE 

60 TO 70 
50 continue 

IRMlNsl 
IRMAX«2 
60 TO 70 
60 CONTINUE 

IRMIN«KRAD-1 
IRMAX«NRA0 
60 TO 70 

70 CONTINUE 
C 

C 

NRITEC21/71) IRMIT/IR4AX 

71 FORMATC IRJIIN*'/I5/* lRMAXs*,I5) 

NRIIE(21/72) RR(IRM1N)/RRN0(1RNU)/RR(1RMAX) 

72 PURHATI* RRaRMIN8*/Sl0.4/' RRNU(NUs*/S10»4/ * RR<IRMAXs%E10*4) 

C 

C 

C NLADE 6E0METRV AT RADIAL STATION OP INTEGRATION 
RsRRNUdRNU) 

lP(R*LE.76E0M(I0At/l)) 60 TO 201 
lOATsIOAT^l 

IPdOAT.GT.NOAT) 1DAT«NDAT 

201 OELTA«( R- VGEOMdOAT/ 1) )/(f 6E0M( * 7 AT/ 1 )-7GE0M(10AT-l/ 1)) 

00 210 IX«2/3 

n» XX(IX-l)»V6BOM(lDAT/lX)»OELTA*<V6EUMdOIT/lX)-06EOMdDAT-l/IX>) 
C 

c 

B«XX(l)/2« 

CHI«XX(2) 

iffilTEC21/7010:. B/CfIX/R 

7110 PORMATC* B«*/B10*4/* C31>*/B10.4/* R«*/B10*4) 

e 

C 

e 

c 

C0SCriI«C0S(CHl> 

SlNCttI«SIN<eill) 

c 

c 

ZN00«SI6MAC*B*(6MNS*C38CRt^NN*SIMCB!/R) 
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i - 


C ORIGINAL PAGE IS 

C OF POOR QUALITY 

C 

C CHORD I^ISE IMTE;RAT1QN uses BESSEL INTEGRAflON METHOD 

C 

C CALCULATE BESSEL HEIGHTITG FUNCTIONS 

C BESJ REQUIRES POSITIVE ARGUMENT 

XsABS(ZMOD) 

CALL B£SJ<X/0,fiJ0#EB/IMRURl} 

CALL BCSJ(X/NCHORO«BJ(NCHORO),E6,IRROR2) 

CALL BES J(X/ NCHORO- 1, B J( NCHORD-1 )/ SB, IRR0R3) 

I SE RK=I RRORl RR0R2 R ROR3 
NRITE(21,5400) ZMOOrlSERR 
5400 FORMAtC' ZMOOsVB10.4r' ISERRs'^15) 

IF(ZNOD.GT.0«) GO TO 5040 
C BJ0 IS EVEN FUNCTION/ A0J3ST SIGN ON OTHERS 
BJCNCHORO)sBJ(NCHORO)*.(-l.)**NCHORD 
BJ<MCaORO*l)=Bj(MCHORb-l)*(-l. )**(NCHORO-l) 

5040 CONTINUE 

C USE RECURSION RELATION TO COMPUTE AND STORE BESSEL FUNCTIONS 
DO 2080 NSNCH3R0-1/2/-1 
BJ(N-l)s -BJ(N^1)4'2.*N*BJ(N)/ZM0D 
2080 CONTINUE 

C , 

C - o ^ 

c 

c 

c INITIALIZE INTERPOLATION TO GET PRESSURE VALUE FOR THIS 
C FREQUENCY AND RADIAL POSITI3N FROM STORED DATA 
C 

C USE 4 POINT bivariate INTERPOLATION. SEE ABRANOBITZ AND 

C STEGUN 25.2. 65 

C NOTE QQ AND PP ARE LESS THAN 1 

C 

C DETERMINE FRACTIONAL PARTS OF FREQ. AND RADIAL SPACING 

C 

PP3(RRNU(IRNU)*RR(IRMIN))/(RR(IRMAX)-RR(IRH1N)> 

Qas(OMEGA-NUPMIN)/(NUPMAX-NUPMIN) 

IF(NH.LT.0) aQs(EQ0ME6*NUPMlN)/(NUPMAX>NUPMlN) 

C 

C 
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C STATION 

C NOTE THAT ZsI**IKOOMT B-LON ORIGINAL PAGE O 

RRRSsC 0- # 0- ) QOALmr 

Zs(l.,0.) 

DO 5000 IKOUNTs0,n:H3RD 
BN=1. 

lF(lKaUNT.E<il.0.OR.UOUNT.EQ.NCHORO) &N:0.5 
AR6UsIK0UNT*IZ*Pl/NC10R0 
IP(IKOUNT.CT«0) 60 T3 5010 
KRSstfN*Z*B<l0 
60 TO 5020 

5010 CONTINUE 

RRSsBM*Z*Ba(IKOUNT)*COSlARGU) 

5*20 CONTINUE 

Zs2*I 

RRRSsRRRS^RRS 
5000 CONTINUE 

C 

RRRSsRRRS*2.*PI/NCH0I0 

BN«1. 

IF(IZ.E2.NCH3RD> BNs0.5 
C 
C 

C INTERPOLATE PRESSURE VALUES IN FREQUENCY AND RADIUS 

C 

HCOUMTscNUSE 

y«(l.-PP)*(l.-Q3)*CASCEr(IZ/IRNIN,MC03NT,IPNIN) 

ysy^PP*(l.-2Q)*:ASCCT(IZ#IRNAX,HC3UNT,IPNlN) 

Ysy^QQ*( 1,-PP)*CASCST(IZ, IRHIH, MCOUNTr IPMAX) 
V«y«PP*QQ*CASCET(lZ#IRNAX/NCOUNT^lPNAX) 

C 

NRITE(21#2) CASCETdZ/IRNlN^MCQUNT/IPMIN) 

MRITE121/2) CASCET(IZ/IRMAX,NCOUNT/IPMIN) 

MTB(2l,2) CASCETCIZ/IRNIN/MCOUNT/XPHAX) 

HRITEC21/2) CASCEraZrIRMAX,NC008T#XPNAX) 

2 FORMAT! ' CASCET«%2S10*4) 

C 

C EVALUATE FINITE CHORUNISE SUN TO APPROX. iNrCGRAL 
C 

QMNSTsY*RRRS*BN 
QMNS«QNNS^Y*RRRS*BN 
«R1TE(21#S030) IZ#qHNST 
5030 FORMAT!* IZ«*,I5,* 2NNST*V2E10.4) 

220 CONTINUE 

C 

€••***•*•*• END or CHORONISE INTEGRATION LOOP 020) *••*•*••*• 

C 

HRITE(21,7022) IRNUrQNNS 
7022 FORMAT!* IRRU«*rI3,* QMNS«*#2B10.4) 
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8010 CONTINUE 

GO TO 8013 

8012 CONTINUE ORIGINAL PAGE 18 

SUMNUS0. OF POOR QUALFTY 

8013 CONTINUE 
URITE(21,tt015> SONNU,P,TURM 

8015 FORMAT!' SUMNas*,E10.4^ • Ps'^15/' TURMs',E10.4) 

C 

c 

c 

FNNSsCU*CC*CO*SUNNa/R 

c 

c 

«MTRs1«4>SNTR/3« 

sntr=-sntr ^ 

IP(IR.Ca.l.0R.IR.E9.NRA0) NHTRsilHTR/2. 

C 

C 

PNNSspMNS«>«HTR*PNNS*UELtAR*SlGMAC*SI6HAC*2« 
NRITEC2U7016) P4NS 


7816 FORMAT!' PNNS SUM!R)s',S10.4) 

901 CONTINUE 

C . 

€•••**••»*• END OP RADIAL INTEGRATION LOOP !901) 


C 

C 

C 

SMN«!!BETA8a*NBLA0£)**2)*MA*MT*aMEGA*?MNS/PI/KMNS 

SHNsSMN/!1.-SIGWAR**2)/!0NE6A*NT>XSI6!I«NA*KMNS)**2 

SNN«-XSI6N*SMN 

C 

c 

C MULTIPLY OUTPUT BY 2 !AD0S OOB) TO ACCOUNT FOR ENERGY 
C IN NEGATIVE FREQUENCY 
- SHNsSMH*2. 

C 

RELPmRsSNN 

IPNRsl 

IP!RELPNR.EQ.0.) 50 T3 915 
RELPRLslB.* AL3G10! ABS! RELPWR) ) 

60 TO 920 
915 1PNR«0 

920 CONTINUE 

C 

cc 

c 

IF! XS16N.lt. 0«)^6O TO 9000 
C 
C 

NR1TE!S^30B0) 

3080 FORMAT! 'BOPSTREAN ') 

MRITE!5,dl01) 6NNS 
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8101 PORNATC' 6AMNA N,M,S8 «'rEl6.8) 

MR1TE(5/8102) SNN 

8102 PORMATC* REU MODAL SOUND PONER SPECTRA; DENSITY^*, E 10* 4) 
WR1T£(5,8S00) IBR 
•RlTfi(»/5500) ISUMR 

8S00 PORNAT(* SUM OP ALL ERRORS IN PSI CALCULATIONS «%I5) 
1P(IPNR.EQ.0) 60 TO 970 
WR1TE(5/S600) RELPRL 
60 TO 980 

970 CONTINUS ORIGINAL PAGE 18 O 

NRITE(S/952) OF POOR QUALITY 

980 CONTINUE 

8600 PURMATC* REL, SOUND POVER SPECTRAL DENSITY LEVEL (DB)«%E10«4) 
VRITE(21#7200) 

7200 PORNATC* END OP UPSTREAM INTEGRATION') 

XSIGN»-l.c. 

SPNR(1)sRELPWR 
60 TO 111 

c 

€*•••*•*•** RETURN TU LINE 111 TO COMPUTE DOnNSTREAM PROPAGATION 

C**«****«*»«*»»********ft*»***»«***«****ft***ft*ft******«*******»«**«ft 

c 

9880 NR1TE(S,8280) 

8200 FOkNAT('0OUUNSTREAN') 

NRITE(5,8201) GMNS 

8281 PORMATC' GAMMA M#N/SB a'rllS^B) 
nR1TE(6#8202) SMN 

8202 PORMATC* REL. NODAL SOUND POWER SPECTRAL DENSITYs*#S10.4) 
tfRlTEjC5,8400) lER 
URITE(S,S500) ISUMR 

S600 rORNATC* SUM OF ALL ERRORS IN RS CALCULATlONSs'rlS) 

8400 PORNATC* SUM OP ALL ERRORS IN PSI CALCULATIONS «%I5) 

IPCIPUR.EQ.B) 60 TO 950 
NR1T£(S,8S00) RELPRL 
GO TO 960 


9S0 CONTINUE 

HRITE(5/9S2). 

952 PORNATC' SOUND POWER SPEfTRAL DENSITY POR NOOE30/UNBXC1TEU*) 
960 CONTINUE 

SPWR(2)3RELPWR 

NRITE(21#7282) 

7202 PORMATC* END OP DOWNSTREAM INTEGRAFION*) 

RETURN 

END 




PROGRAM MAINTU 


This l8 a calling program to 
control the computation of 
pressure data for the wake 
turbulence case. 
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PRQGRAM MAIIITM 

OIMSNSIOM IOATAa0),ROArA(20)/VGEOM(10r7) ORIGINAL PAGE 18 

UlMEHSlOli VELQCV<18#2) OF POOR QUALITY 

REAL Mf/MA/RUV/LXrLR/LTHErA 
INTEGER PSTARr,PEN0,P,PRAN6E/PSTEP 
DATA (lOArA(J)/Jsl/10)/10*0/ 

DATA (RDAIA(U)/Jsl/20)/20*0.0/ 


ROTOR «AKE TURBOLENCE-ST ATOR INTERACTION— MATRIX STORAGE 

THIS PROGRAM 6R3GP CALC0LATES ANO STORES RECTORS Of 
THE COMPLEX PRESSORE DISTRIBUTION ACROSS IHE STATOR VAIfE. 

DATA REGUIREU TO EXECUTE THIS ROUTINE INCLUDE! 

!• VANE 6EON3TRT 

2. ROTOR OPERATINtr SPEEDS 

3. NUMBER Of RADIAL ANO CBORORISC POSITIONS AT NHICM THE 
PRESSURES ARE CALCULAPEO 

4. FREQUENCY RANGE OF INTEREST (EXPRESSED IN TERNS 
OF HARMONIC ORDER OF SHAFT ROTATION). 

THE RANGE OF CnCUNFERENTIA.. MODS NUMBER M IS 0 TO NTANE-1. 

NCHORD MUST BE NO GREATER THAN 20. 


1001 FORMAT(G20.8) 

RRXTE(S,2001) 

2001 fOKMATi' NVANEs') 

REAO(5/1001) NVANE 
HRIT£(5,2101) NYANE 
2101 FORMATC' NVANE«*/I3) 

4RIT£(N/2002) 

2002 FORMAT!* NBLAOEs') 

KEAD(5#1001) NBLADE 
4RXTE(5,2102) NBLADE 

2102 FOkMATC* NtfLA0E3*#13) 

HRXTE(5,2003) 

2003 FORMAT!' HUB RADIUS DIVIDED BY DUCT RADIUS «') 

REAO!5,1001) SIGMAR 

NRXT£!5/2103) SIGMAR 

2103 FORMAT!' SlGMAR«*rE16.8) 

bRXTfi!5,2004) 

2004 FORMAT!* VANE TIP CHORD DIVIDED BY DUCT RADIUS*') 
REAO!5,1001) SIGNAC 
HRXTE!5,2104) SI6MAC 

2104 FORMAT!' SXGNAC«'fE16.8) 

C 

C 

nRXTE!S^2006) 
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20 f 6 

2106 

2007 

2008 

C 


2009 


2110 


2011 


10 

C 

C 

2020 


2120 

11 

C 

c 

c 


S000 

1 


Sfl0 

c 

c 

3000 

3 002 

3104 
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FORMATC NOAT *') 

REAO(5,1001) NOAT 
iiRITE(5,2106} NOAT 
fORMAT(' N0AT3%I3) 

URITE(5,2007) 

PORMAT(* VANE 6E0.4ETRT MATRIX INPUT*) 
hRIT£(5,2008) 

FORMA T(* PEED MATRIX IN ONE RON AT A TIME/ FROM RUM TO TIP') 


DO 10 IROWsl/NOAT 
«RITE(3/2009) iron 
fORMAT(* RO«s*/I3/* R/R3UCT »*) 
REAO<5/1001) 76B0M(1R3M,1) 
nRIT£(5/2010) 

FORMAT!* C/CTIP «*) 

REAO(5/1001) VGE0MCIR3H/2) 
HRIT£(S/2011) 

PORNATC* THBU (DEGRESS) «*) 
REAO(5/1001) VGE0N(IR0M/3) 
?6EON(IROtf/3)sVGEOM(nOtf/3)*. 0174533 
CONTINUE 


NRITE(5/2020) 

PORMATC' VANE GEOMETRY MATRIX IS*) 

DO 11 IROWsl/NOAT 

nRI TE( 5 / 2120 ) ( VGEOMC I RO«/ I CuLMN) /I COLMNs 1, 3) 
FORMAK* */7E10.3) 

CONTINUE 


HR1TE(5/S000) 

FORMAT!* TYPE 1 TO INPUT ROTOR HAKE VELOCITY; 0 FOR FREE 
VORTEX*) 

REAO(5/1001) IVOR 
HR1T£(5/5010) IVOR 
FORMAT!* IVORS*/ 13) 

IF !1VUR«ER.0) N«ELO«0 
IF (IVOR.EQ.0) GO TO 4005 


MRlTE(5/3000) 

FORMAT!* NUMBER OF RA9II FOR SPECIFYING MEAN ROTOR FLON«*) 
|IEAD!5/1001) NVEL3 
«RlTE(»/3002) NVBLO 
FORMAT! * NVEL3«*/I3) 

HR1TE!S/3004) 

FORMAT!* INPUT MATRIX FOR MEAN ROTOR FL3N*) 

PRXTE!5/3006) 


PACE 1:2 





I 


{' 


i 

\ 


* 


f 
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30f6 


3008 


3012 


4000 


C 

C 


3014 


3016 

4002 


C 

c 


4005 

C 

c 

c 

2030 

2130 

2031 


2131 

C 

C 

C 

C 


2032 


2132 

6000 


C 

C 

c 


FORMATC' PEED MATRIX IN ONE ROW AT A T14E,FROM HOB TO TIP') 

00 4000 IROWsl/NVELO 

WRlTE<5/3008) IRON 

FORMAT!' R0Ws'/I3r' R^RDO:Ta') 

READ! 5, 1001) VELOCV(IROWrl) 

«R1TE(5,3012) 

FORMAT!' MEAN CIRZUNFERENriAL VELOCITY 1 ATI 0!0 CIRCOM/U 
AXIAL0S') 

READ!5/1001) VELQCV!IRUW,2) 

CONTI NOE 


nRITEU/3014) 

FORMAT!' MEAN ROTOR FLOW VELOCITY MATRIX IS') 
DO 4002 1R0H«1/MVSL0 

WR1TE!^/3016) (VEL0CV!IR0W/IC0LMN)^lC0LMN3l#2) 
FORMAT!' '/2E10.4) 

CONTINOE 


CONTINOE 


HRITE!5,2030) 

FORMAT!' MT »') 
REAO!5,1001) MT 
«R1TE!3#2130) MT 
FORMAT!' MTs',E16.8) 
NR1TE!5,2031) 

FORMAT!' MA «') 

READ! 5/ 1001) MA 
URITE!5,2131) MA 
FORMAT!' MA «*,B16.8) 


ORIGINAL PAGE IS 
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IF!IVOR.Ea.l) 60 TO 6000 
«RIT£!5#2032) 

FORMAT!* VYFM/VXM 0 R«R00:T>') 
MEAD!5,1001) MOT 
UR1TS!S#2132) MOV 
FORMAT!' MUV«*/E10«4) 

CONTINOE 

IF !1V0R.EQ»1) NUVsf. 


WR1TE!5,2035) 
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PACE 1:3 


20 3S 

fORMATC' NUHaSR QF RADIAL STATIONS «*) 
REAO(5/1001) NRAO 
WRITE(5,2135) NRAD 


2135 

FORMAIC NRAO«M4) 
«RITE(b/2036) 


2035 

FORMAT!* NUMBER OF CH3RO0ISE STATIONS 
REAO(S,1001) NCHORD 
MRiT£(9,2136) NCdORO 

!.LE.20) a*) 

2136 

C 

FORMAT!* NCHORO«*fI4) 


C 

dRITE!S/100) 


100 

FORMAT!* START FREQUENCy!HARMrjNIC NO. OF SHAFT )«*) 
READ!S,1001) PSTART 


«R1TE!9,110) PSTART 


110 

FORMAT!* PSIART»*rI4) 
WRITE!5,120) 


120 

FORMAT!* END FREaUENCVIHARMONlC NO. OF 
READ! 5, 1001) PEND 
WRITE!Srl30) PENO 

SilAFDa*) 

130 

C 

FORMAT!* P ENDS*/ 14) 


C 

VR1TE!S,140) 


140 

FORMAT!* FREQUENCY STEP SIZE !dARMONIC 
MEAO!5/1001) PSTEP 
WR1TE!5,150) PSTEP 

3ROERS)a*) 

150 

FORMAT!* PSIEPa*/I4) 

PRANGEs!PEND-PSTART)/PSTEP«>l 

10ATA!l)aNVANE 

10ATA!2)sNBLADE 

lDATA!3)aNKAU 

IOATA!4)«NCHORD 

ORIGINAL PAGE IS 


10ATA!5)aNDAT 


lOATA!6)aPSTART 

1DATA!7)sP£NU 

IDATA!B)«PSTEP 

10ATA!9)aIV0R 

OF POOR QUALiry 

C 

IOATA!10>«NVELO 


C 

R0ATA!1)«MT 

ROATA!2}«MA 

R0ATA!4)«SZ6HAC 

ROATA!5)«S16MAR 


c 

R0ATA!6)«MUV 


c 

CALL STAr0Ra0ATA/R0ATA/V6S0M,VEL0CV) 
STOP 



END 



PROGRAM STATOR 


Program calculates and stores the 
pressures generated on a turbofan 
stator by wake turbulence. 


50 
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SUbRUUTUE STATaRaOATAfKOATA/VGEOM^VELOCP) ORIGINAL PAGE IS 

OF POOR QUALITY 


OIMENSION DF OSLrAP«20 

DIMENSION 3P CASCErs(N:HORO,NRAO/NVANE,PRANGE) 

NOTE NCHORi) MUST BE NO GREATER THAN 20 
DIMENSION DELTAP(20) 

DIMENSION VGEOMa0,7),RDATA(20),IOATA(10),XX(6> 
DIMENSION CASCETO/5/11,3) 

DIMENSION A(72),mOCFa8r2) 

REAL KB,MR,MA,MT,MYM,MTHBTA 
COMPLEX I/DELTAP^CASCET 
INTEGER PSTART#PEND/P/PRAN6£/PSTEP 
1»C0*/1.) 

PI«3. 14 15926 


NVANEPIDATAC) 

NBLA0E«1OATA(2) 

NRAD«IDATA(3) 

NCHOKO«IDATA(4) 

NDATslOATA(5) 

PSTART«IOATA(S) 

PENDS ID AT A<7) 

PSTEPslDATA(B) 

1V0R«IDATA(9) 

NVELOsIDATA(10) 


WRITE(5,160) 

PORMATC* ENTER TITLE FOR DATA FILECMAX 72 CHARACTERS)*) 
READ(5#1003) A 
FORMA T(72A1) 


NT«RDATA(1) 

MA«ROATA(2) 

SIGMAC«RDATA(4) 

SlGHARsRDATAIS) 

I0AT«2 

100T«2 


START LOOPS TO CALL CASS— B56IN WITH LOOP ON RADIAL 
POSITION TO MINIMIZE 1NTERP3LATION. 


DO 308 1K«1#NRA0 



c 
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w 


PAGE 112 


C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


3i0 

302 


304 


306 

C 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

e 

c 

c 

c 

c 


DO 308 PsPSTARr^PERO/PSTEP 
IPsIPn 


0M£GBCsHT*S13MAC*8*P 


ORIGINAL PAGE \fi 
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MRs<MA**2^MTaSTA**2)**.S 


KBsMT/0R*B*S1SNAC*P 

SIGMA«-2.*Pl*HM/NYARe 


Ms2. *PI* R/NVANE/SISNACl'B 
ANGLES -TmETA 


WRXTE(21,300) 

purnat(*0Input to subroutine CASC*) 

»RITE(21/302) 0ME6BC 
PORNAT(* ONE6B;«*,S10.I) 

NRITB(21r304) HR#KB,3X6MA 
FORnATC' HR«%B10.4/* KBs'/E10.4#' SIGMA«%S10.4) 
WRITE(21/306) H, ANGLE/ 4CHORO 

PORNATC* Ns%E10.4»* ANGLES %E10« 4/' NCtt0R0«*#I3) 


CALL CASC(ONE6BC/NR/K3/SI3NA/H/AN6LB/NCIORO/OELTAP/IERP) 

STORE RESULTS OP CASC IN STORAGE MATRIX P3R DISK PILE. 
MATRIX POSITION DESCRIPTORS ARfi(lN ORDER OP APPEARANCE)! 

1. CyOROiHlSS POSlT13N(TiAILXN6 TO LBA 3 ING EDGES) 

2. RADIAL PGSITIONCINNBR RADIOS TO OUTER RADIOS) 

3* CXRCOMPERBNTIAL NODS HUMBER ♦ 1 (M«>1) 

4. ORDER OP PRBRUBNCir COMPUTATIONSIPIRST TO LAST) 

NITHf ZPn POR PSTART 

IPsPRAHGB POR PEND 


DO 310 ICKsl/NCHORD 
CASCST(lCK/IR/NeoUHT#tP)sOSLTAP(ICE) 
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310 

7500 

7025 

7002 

C 

C 

c 

c 

308 

C 

c 

' c 

( 



I 


CONTINUE 

NRITE(5/7500) lERP 

PORMAT(' ERROR COO£ PR3N INVERSION R]OTINEs%I3) 
NRITEC21/7025) 

PORMATC' OUrPOT PROV CASC:(DELTAP(lQ)r IQsl/NCHORO*) 
WRITE<21/7002) (OELlAP(la)/IQ«l,NCHORO) 
FURHAT(SX/6E10.4) 


CONTINUE 

STORE MATRIX OP PRESSURE VAI.USS ON THE DISK POR LATER 
PROCESSING BV OTHER PROGRAMS* 


CALL OPILEC23#'STAT*> 
WRITE (23) A 
WHITE (23) lOATA 
WRITE (23) ROATA 
WRITE (23) VGEOM 
WRITE (23) VELOCV 
WRITE (23) CASCET 


ENOPILE 23 


STOP 

END 




( 


( 

( 


) 







PROGRAM WASRCH 

Program determines whlcn modes 
propagate for the case of rotor 
wake turbulence and controls the 
noise conqputation. 
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C <MT.iiOi5ALU>..ASKCd.i--nR>7 p *:1 l 2 -Ui#c-d£: lJ46P.< 


HAtob 1 


f 

( 

( 

f 

( 

( 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Prilhr'U'^ a'ASkCH 

Jl*'i:NSI'J*: CASCiTid^a, 11,3} 

ul '*:c ^<>iOl\ 1 cx (d } / 1 i> A r A i 1^ i 

UI?^£..31 j%’ RiJArA(2?J,kriEJM(l.i,7)/P0-ii‘S(2)/3t'dR(2),RELPR(2) 
Ui':h.'.'SlJ;J A?C3A(4>,rf£-JL*rf( 1.1,2} 

AC7<!} 

Ul.t.’-UiblJiM IdUd'lJllZ't*} 

CCI^^PLiA UASCET 

^c,AL La,LK, LIn£TA 
I N'i r.oh'K t'w Aj* v»i, Pil A 1<T, P3 i’5 P, Pt rtU 
KiAL Mf,;-iA 

L»AtA(JSu:-ir0vJ},J-l,lP:i^/12d»fV 
t/.AiAAPU'*pP(J},«i~l,2} / 


CAi^ulNo pyjiiivAn rJK UJlUfid tJ uuT AikJ OAtcduATt 

ALL ptfJp A GATING MJUS.S AT A' GH£f< HJSITIVE fJSaUSNCY. 


OHEfJ fill "STAT'* AVD k.'A!) INPUT ARRAYS 
I.NCLUL»ii.G :A1»' S70«Anc -.UiRlA "CASGET'* 


t.vAT "bTAT'» IS A o5.j:j5!\”^iAL 

C 

C QHlJt-.R OK Si‘DKAGi-=A,Ii)A7A,PUA:A,VGi0-f,V--L0:V,CASCfc7 

. « «»«> 

W 

C 

CAuL ir 1 uL(23,'SThT') 

Lt A J i23} A 
kcAu (23} UAIA 
r?.kJ (23} RUATA 
R'hJ (23} VGSCJM 
" RiAj v 2J} ViLOCv' 
r':,A^ (23} GAiu&t 
- L.*'i;rlLr. 23 


fJNFO^MATriU 2IYARY FILE— 


C 

c 


9 

6 


'f% nI 1 Ct ^ 9 , 9 } 

rdi.-4AT(' US£R-AS31G;i:} TITLE OF Uilt 9&T FROM FILE "STAT” IS') 
W;J.lT£(5,o} A 
taH iAK' ',72AD 

HSTArfTallUTA(3) 

Ps.%'0-1u«TA(7} 

PS’I .%paU»»UA(d} 

PRANOcaC-iNO-FSfARD/FSrEP + l 
NPCiJN(l>api;TA^T 
KPCJdu}aPr.;,'u 
NFC0N(3 )apST£P 
f»?CUNU}sF;\ANS£ ■ 
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c 


<«rHSo.‘ALJ>.vAS9C.!.?U?.;7 


?ri 12*uec*4i? l»4t>?4 


PAGE l:i 


c 

c 

c 

c 

110 


115 

c 

c 

c 

V**w 

c 

€***■•• 

12i 


1 

2^37 


2137 
2 230 


213a 

C 

C 

c 

2(^33 


2133 
2034 

2134 
C 

0010 


ENTciS F’EwUi.'wV US’ ! «!£ iiiaf (MUET aS “JSITIVS FSEutlSNCY) 

rUKr4IiG2‘.ti) 

<•'<1 Tw( 9/ 112 ) 

Ku9-UT(' HJlii F^iJJEVCY/S^Af'T F!4£uU£*iCY2') 

K£A0(5/ iP*’l) 3HSJA 
KU4TA13 j-3.4i.ttA 

rjy‘krK* u<F.;i*='/2l?.4) 

4UATACO) 

js-cCT i«J« jr kAuIAL PJS1TIJi4S Tu I Ml i.Kp.j-A Yt. I'ks.SdUKhd 
(A63U*iiii} T.iaT N?ADau.3£.i9a3) 


';FAuJl« *"U5T t?i .li.3i^' UiuriSS DlVi'JSIJ:. STATaMiNTS l.*J 

"uul'UKti** Ada lU dc .4Ui/fFi£u 


Wr;iTa(3,12^) 

FJHV4U* OF hAUlAL PJSITIISS FJR AUJUSTIC CJMP.-'j 

i\aA L'O/ 1 1 ) ■\nAi/'Vu 

PLiJ.TA(i^)sFLJAT(.iFAUrtJ) 

«.-<lTa(5,13':'j V.^Au‘iJ 
fo.tUU' nAAu\o='/l<*i 
A^Iti;(5,2;‘37) 

K0r-«AT(' ACCJxACy 0? 3£S3iL Ff.Ss') 

1.* 1) aiJ 

.•t%I T c.13/2137 ) ta 
ru-'-UTC •3 = %E1<!,4) 

••.•KH>;(5,2.'3rf) 

rjK.-*AU' MCCU4ACy UF CUN 22 k Ci TO kJOf 
aC 

*^it;-:(5/2134) fc 
hUK-ATv' £C-',M^.4) 


ENi-9 TU.9fuLE«C2 C3AR ACrSnlaTlCS 

nf lT<'.40/2»‘33j 

«A»v 6 «l4*fns'j 
N£AU(0/l^n) .4i«ilJrH 
*irlTr:(3/2133) W2I3j.4 
••Ur*'AU' i.4lUf rta',tl»!.4j 
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•«k 1 1a(^/2'’ j 

rU«‘iAT(' TUAhJLS.^CE I^TE:»3IT/C?MS FLJCI JAIIN’3 U/U 3AR)»') 

KF.«j(5,li>n) aPS^ • 

K'j.yvAT^' £FSi«5*/21?.tj ' 

dPlTr.ty/21a4) EPS2 


•»klTbvi/6^'loi 

rUr.'lA'U* IvIndJuanCo aCAub It9 AXIAu uXr£CTXUMs*) 

FEAU(5/liJ* 1) -A 
rtivXTa(5,A;/'2) LX 




C <MTrfcU'<AL:»AAS-.C4.?0P; 7 ?l l 12-Jyc-iw iWo?^ 


?&GI 1:2 


f J*» '■••A i i * L X” */ il ) 

>».^IT.':(5,nt .■*4) 

01904 F0« tATC' rUi^rJLifiCfc L-NAH SCALE l.» nAJUL 31«SCTIONs') 

KiADib, It.’l) uK 

6026 F3y.MT(* L‘-’ = 'fEl *.4) 

•RlTovO/ 61 / 1.-67 

6006 rJi<':Ali* Tu‘<t>.9i.K.iCs> uiitwl'ti SJ4u£ I.'4 wlXCuMr'EkSNTIAU uIk£c1I06s'> 
REAL'( 6 /l/.l) :.T42rA 
>»riTi(5/6.n.’) LTH£1 a 
0010 i-3.-<'-Arv' LTHp.:A5',il.i.4j 

auaIACJ 7=r.r'S:k 
i- JATA(77 = *<lL»rH 
‘'r»AVA(15)=LX 

ac'AiA^I / 

K./Al?(^)='iJ 
S{)ATAa**7=6C 

p> A ~ Kw A 1 A ( x[ ^ 
oIG*'1-»scj;iA(5) 


C 

C 

c 

c 

^k 1 

c 
c 
c 
c 
c 
c 
c 
c 
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XiAX=c:.ir.«A* 


1 ) X'*AX 

rjA^S'i'i* Xi‘iSt-*>AX7 t JA t'Ru:* AuAl 1 Uu s*/il5«6} 


STAaT AlTH PLA.it iA7S HjJi (»#U. COUwT U? N/ WaN M 
UAiiu ALL PJSSlaL- -tirtH-K v.jt)£S aKL CUT OFF. 

6 -sl 

'* s v' 


c 

c 

c 

c 

c 

l 9 

c 

c 

c 

29 

c 

c 


KtSTA.-<T COU.'.T riiK: ?Uh Sti 4 


w-x 


INCHE'^EM' h 
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C 43i^Ci!.^O.y;7 ?ri L.2*pfeC-4 k) lMo?i 


c 

c 

c 


CALL ANRI i'U:?S/.'''/SlG''AR/£b,£C/\'4\/l6J/l£Cj 

C 

c 
c 

C If MOUi IS cur JK*^/ G 3 lu 63ilJ 

c 

1F( X.M.-.Gr.X'UX) GJ ru 

c 
c 


original page is 


sail} r JS'UK '.'MuJE JAfA') 

Hr.ATE(2l,3?v'l) 0'«£G-/'I/K/A<4f. ' 

. 3£iJl FOR !AU'’o3‘^i.';A-%il.^4/' ‘'-',13/' XMKs'/LlS. 't) 

IrlX.lN.Lk...'.) toU IJ l?f>v 
COr*F?A=X’> AX/X<*i 
»KlTi(31/4^'’-> COKKhA 
miif I’jR.’iATt* C*il’GfF ivATIu f Urt •.iJi/fc— 

GJ T3 1<:>5 


l£0ij CONTl'Ws. 

«KlTb.i^ 1/ 4 k. •- 3> 

4C35 Fu^fUTl' ?LA.<2 .UVE >iJJE: CUfJrr' RATIJ IS ♦ iriflNirS') 

Ittfb CQi.-riNJE 

»KlTc.4i!l,3‘''^2) Xi3 

33L2 fUK'*Alv' ^On Jr Jr<Sd^^ r'<^N w'l'I Jik c.kaJ.< ='/I3i 

i*.^lTi(21,3c -S) !£C 

3kJ£3 FOp-:aT(' CODE r'3R CD..ViPG£';Ci T3 4JQT aMN -'/13) 

L 

C NuRKALlZc 4i3u£ AV-r^LiTJUi 

C 

call 'olGt.*; C“APS/SiG‘'AR/A'V\,A«„/yMN,h?/IaRj 

L 

C 

.«KiTc.(21/3» '54) A-iM/4.i;v 

3024 A^•^ s',ilo.6f' H*''. s'/tlb.d) 

•*rtili.(2l/3?«’bi Icy. 

30i-i fa'^MATC C03' rJR uiSStL F.<S IN A4?l A,\'0 84N CALC s',dI2) 

C 

c 

J-UATA(11) = X«'J 
hl)«TA(12) = A.1N 
hUMTAa3)st‘-<f. 

UAtAU)*'^ 

luATn(7 

C 

C 

CA Lu aA' 1 Ur.n^luv I'A/KJAiA^vuttUii/ VuLdCk / SpMR^CASC&I/ftPCUltr 
1 I^IUTJ) 

P'JXsfyd )sHDr/£K(l)tSPWK( 1) 

HUwiHv2>-P3#*£R(X) rSP«tRv2) 


C <MTH£0.-‘ALJ>..AS^C.i.K0r<;7 ?ri l^-yec-6r 1:%6PM 


PAGE 1:4 


C uu Nui jAll'Cn J.V i (r 

If ( TO 2i 

luATAO>=-ljAfA(Dj 


*.*<lTc.iil,83:J?J lUATAio j,iyATAi7>,PUAIAt^ J 
jJi/f ^ «Jiv.‘i A i t * <■' .I- */ I D/ * i*s*/iD/* J'tSi ijA- */ b 1«> • 4 1 

C 

C S^rfITC4 SlOr. df. * and KfDALCUuAlt 
C 

CAUit i<AT«ih oi ii'Al A/ruA t A / <i»c< iwUciV/ bt*i*R/bAftCs>r/ (•{*CUh/ 

i liU-HTu) 

PU*E.^(l)-t'04£H(l)««S?4;HlJ 
PO(»ij<l^>-»U..6Rl2}**SP-KA2 j 


l^iATA(^ls-l^A^A(o> 


t»J TU 2 :' 


C If MDU-- iS CoiUFf/ UiJlDE ^OUs, TD T?V NEXT. 

C 

60CU ifC.Ej.l) uo T3 ?/.•? 


N«AXs:»-l 

*KlTc(2l/*>t.*l) “iAAK 

bJn F0 k-‘ATI* ' uAi.,£ST ?!<3I»A»iATU3 U ?U»# THIS 4 s'/li) 


JaJ*l 


C UCKf.PiNT >; 

c 

Ms.S4>1 

GD TU 15 
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C l»*l TU >^fA:.l HIS P31MT 
1 (Lite CUnTINUA 


-G <«THLunAut)>VASiC4.*‘US;7 ?ri 


PAG£ 1:5 


C 

c 

Tun 

la 

90 ei 


3219 
5 50 


3315 

9 01? 
9 12 


5 415 

522 

b'S<6 


i»flT!i(21/7fi:i> 
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?'rLFA(JJ)si;;t,*ALUJl^(A33(P0r'iP(JJ))) 

;U TJ 552 
Kc.LP.-v jj)-l.c,09. 

CJ’4 Trail 

1F(.K*.LPP(1). £2.1.5*35) GJ TO 5315 
«:-:iTJi5/0lC) PiLP.KU) 

00 1j ot*' 

a-IT£(S/5Mv‘) . — 

KJKv.An' FPi-jJKNCy IS CaX OFF') 

CO;*flNUi 

rjK.<Ali' niuAIluc. FJmik SPwUi’HAL iiitVdllt LcvtL UF5TPe>Ans'/bl0«4) 
IF(=!':LHP(2).P3. 1.5*35) 33 TO 5415 
2r«ir£(5/63 .*) .-<ZL?><2) 
c;j T:j o22 
Ai:l iit5/551*0 
C0.»Ti*4i.»i 

FUh'tArv* kiL, PO-iK SP5CTK4L uE.'iSITl L£ViL i)0ArtSTKSAM-'/Sl?.4) 
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PROGRAM WATURB 


Program computes the sound power 
generated by a turbofan stator 
subjected to wake turbulence. 


PRECEDING PAGE BLANK NOT FILMED 




PROGHAM computes Ttii SOUND POrfiR GCNERATCO BY A TURBOfAN 
STATJK SiittULCTtU TU Iml^T YUKouLENCE. Tilii IS A SlNPLlPlEu 
VEPSIUN SUITABLS P03 VERY S4AU TORBULENCI LENGTH SCALES 
IN THt RADIAL DIRECTION 


PROGRAM 1NTERPO..ATES ,IN' RAOUL POSITION A^U FREQUENCY FROM A 
STORED KATKlX UF PRESSUilE III STKIBOT IONS (YAMEsCASCET) 


DIMENSION VGEO4ao,7)/ilOATA(2P)/IOATAa0)/XX(6)/IERPSl(2)/SPHR(2) 
OiMENSiON BJ<23) 

dimension PSISTO(30)/NPCON(4)/RR(30>,RRNUU0) 

DIhENSIuN VcLUCif(10/2) 

DIHENSIUN CASCST(8^5/1U3) 

OIMENSION ISUNTO(100)/SUMT3T(10e/30> 
iNTEUtM P#PSTEP/PKA(lGErPSTAKT/PENU/Sl 
REAL XMNS/MR/MT,MA/:.RrLTHSTA/LX,MYM^MTH3TA 
COMPLEX UQMN3/A1,CAS:ET 
COMPLEX 4,RRSrMRRS/^»NST 
wOMPutX s 


uxmsnsion of psisru and rrnu must be .ge. nraunu 

LIiiEwSIUN ut‘ rtK rtUal oc. •Ge.aNkAU 


I<(P./1.) 


NkAUNUsIFIX(RDATA(Iii)) 
KVANEaIDATAXI) 
luA i'A(2 ) 
nRA0«IJATA(3) 
NCrtUP.DsIUATA(-t) 
NUAT«IuATAx5) 

HMsiuAt AO ) 

NN»IUATA(7) 

iYUKaiOATA(9) 

NVELO*IUATA(I0) 

U MELA «KU ATA(U) 
PRAN(*S«NPCQN(4) 
PSTAKTsJiPCQNa) 
PENU«NPC0Nl2) 
PSTtrMPCUNCi) 
SIGHAk«RUATA(S) 
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t4gf* 


C <MTnfcUbALu<^>*A‘lUKu*r UH!;l.'' i^rl W-J^c-dd FAUE 1:1 


C 

c 


ORIGINAL PAGE IS 
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11300 
7 204 


«Kl l&(9f oiJ0> M'4/NM/lJ‘«boA 
KUKMATC'^Ms', 15/* :<s'/I5/* 0MS3 A* '/E13. 4) 

FOKMAT(' N<A0-*/I3, ' .V:H0kD='/ 13) 


C 

c 

c 

c 

c 


c 

c 

c 

€ 


S 

8 


C 

C 

C 


C 

C 

C 

C 

c 

c 

c 


c 

c 

c 


LIST NONOlHcNS13NAL RADIAL ?0SIT13NS AVAILABLE IN STORED 
DATA iNLEObU FOR INTEKPDLATIUM 

DO 5 IRs1,DRA3 

RsSXGMAR^(I!<-1.)*(U-5IG.4Ak)/(NHA0-1.) 

KRilK)sR 

CONTINUE 


PURMATC' R VALUES FROM STORAGE ARE') 
FORMAT(7S10.4) 


MT*R0ATA(U 

MA«kOAlAi2) 

fcFN«sKuAiA(3) 

SItiWAC-HUATAd) 

NUVskuaTA(6> 

NNlDTrtsRuATAI?) 
bosMuAi Al») 

ECskUArAdC) 

X.MN«kDATA(11) 

AHN sRUATA(12> 
ttHNSRUAiA(13) 

LAsKDATaOS) 

LR«RUATA(H) 

LTrtfeTA<sRuATiia7) 

INITlALUc &PR07 CODE ArCUMILATU.^ IN PSl :0MPUTATI0NS 
l£k«? 


LIST NuNJlM£NSl3NAL RAulAL POSITIONS TO BS USiCD IN INTERPOLATION 


Du 7 XkNusI^NRADnU 

R»SI(iMAP«.(ifiM0-l,)*(l,-3l0MAR)/(NRA0Na-l,) 

RKNU(lRhU)aP 


COMPUTE AV3 STJRX MODE S^UPS «E17HTIN0 AT EACH RADIUS 


c 
c 
c 
r 

c 
c 
c 
c 
c 
c 
c 

i 

I 

c| ; 

cl : 

! I 

c i 

ci I 

I i 

f 

} 

^ ' ; 
\ 

^ " i 

c 


. !*■ 

r . 




« * 


4 


Jk 



Ci n o non non nnnnnnnn ^ n n 


ek\ii. U2 




AftGsXMN*H 

MkuL HiiOU!Hrtrt,kKii/krtNfaMN/fS[^tib/lt^t*Sl) 

t»iISTO(IR^U)sPSI 

ieH»:5K^l£RPSi(l)^I£R?Sl(2) 

CONTINUE 


FORMATC* R VAuUSS FOR INTERPOI'ATION ARE') 
FOKMAU' PSlSrO VALUES ARE') 


PERFORM SUMMATIJN OVER fRANSFORHS OF AUTO:ORRSLAriON 
functions FDR LATER USE. T'ilS SUMMATION IS A 
FUNCTION OF MOO£ NUMBER M ASO RADIUS R FOR A GIVEN SET 
OF INPUT PARAMETERS* 


CMCCK TO SEE NH£TMSR SUM IS AVAILABLE FROM STORAGE 


mIndeXsmh^eB 

lF(ISUMTO(HIN!)CX)*Ea*I) CD TO 6040 


MAKE SURE STORAGE LIMITS ARE NOT EXCEEDED 


1F(MM.GT*49) 4RITE(5/$010) 

^ei0 FOKMATC' MODE NUM9ER M EXCEEDS STORAGE )F MATRIX SUMTOT') 
lFiMM.6T.-»») STOP 


COMPUTE SUMMATION AS A FUNCTION OF R AND STORE IN SUMTOT 


DO 6020 IRNUn/NRADNU 

K«KrtNU(lKNU) 

SUMTuT(MINDEX/IRNU)sP. 


limits on DOUBLE SUM ADAPT TO PHVSICAL PARAMETERS 


MMlMAX»lNr< 23 .*R/NBwADB/NMIDTH) 

MQlMAX«lNTa./NVANE*.a6.'R/LTHETA*MMlMAX*NBLAOE<>20*)) 

DO 60V0 MMla-MMiHAX/MMiMAK 
FARU«MMI*NBLADE*NMlOTil/R 
PHIARG«MT*LX/MA'(3MSCA*MMl*NBLA0E) 
TBKMl*P»aXHTlPrtIARG)*iABS(FhAT(FARG)))**2 
uO 60«i^9 mw1**m%1mAX/Mu1mAX 

THE A«ua((.MwI*N VANE )-(MMl»NdLADB)-MM)*LT.iETA/R 
TURMI«TERMl*PiilTM(lirtlEARG> 

Suntut(MlNuEX^IRdU)«SUMlutiHlNwtX#XRNU)«>TURMl 

6100 CONTINUE 

NRlTE(21/d0lS) MM/OMESA/R^SUMTOTCMINOEX^IRNU) 

BflS FORMAT!' MM»'#I5/' OMEGAa'f El0*4# ' R«'rBl0*M/' SUMtOT«*B 10* 4) 


6B20 CONTINUE 

ISUMTO(mIndSX)cI 
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C <HTHeOuALU>KAT(iRB.POR;l0 Fri 12-Uec-60 2:P9PH 


C 

6040 

C 

C 


70U 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


320 


330 


C 

C 

C 


300 


3»0 


360 


C 


310 


340 


C 


341 


C 

C 

c 


CONTINUE . 
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0fctA;>M=l.-rtA**2 

KMNSs(((0MEGA*MT)**2-3ETASQ*XMN**2)**«5)*A8S(0MEGA)/0ME6A 
NRITE(21<f7018) XHNS 

FOHrtATl* KMnSs'/S10.4> 


CHfcCK TO BE SURE MODE NGNBER m IS IB RANGE OP STORED DATA 

IF(MM.LT«0) GO TO 300 ' 

FOR POSITIVE M/ nANI 0.LE.N.LE. (NVANE^'l) 

IF(0.LE.HN«ANO.MM.LS,(NVANE-1)) 60 TO 310 

IP M POSITIVE BUT OUT OP RANGE/ SUBTRACT INTEGER*NVANE 

MTRIAL sMM 

NTRIALS0 

CONTINUE 

nTHIAL=NTRIAL4>1 

RSUMsMTSlAL-NtRIAL^NVANS 

1P(0.LE.MSU4.ANO.NSJN.LS.(NVANE-1)) 63 TO 330 
60 TO 320 

60 TO 340 

PUK mEGAIIkE M/ AUU lNtStoEK*JlVANE TO H 

MTRIALsHM 

NTRIALS0 

CONTINUE 

NTR1AL«KTRIAL<>1 

NSUMsMTi«lAL«>NTRIAL*NVANS 

1P(0.L£.HSU4.ANO«^SUM.LS.(NVAKE*1)) 63 TO 360 
60 To 350 
MUSES :4SUM^1 
60 TO 340 

HUSS«MM«>1 

CONTINUE 

FORMATC MM*M5/' 4USE«'/IS) 

KILL PROGRAM IP USSIRSD PK54UENCV IS OUT 3P RANGE 
UP STOhEu uATA 


C <MTH£OBALD>«ATUKB.POR>10 Fri 12-O«c-80 2l9^PH 


PAGE IM 


C 

PSTARFsFLOAr(PSTART) . 

P£NOF«FLOAT(PENO) 

lF(PSTAKP.LS«0MEGA*AND.3Me6A«L£.P£N0F) GU TO 343 
MRITE(5/342) 

342 PORMAT(' FREGHENCV OUT OF RANGE OF DATA') 

STUP 

343 CONTINUE 
C 

c 

C SCAkCH HARHONlG URUERS FUR FREi^UtNCy INTERPOLATION 

c ‘.V ■ 

C NANT PMlN.LE.OMSGA.Lt«PNAX ' 

C 

nupiiin»pstart 


10 


20 


c 

c 

c 

c 

c 

c 

c 


25 

c 

21 

22 

C 

c 

c 

110 

c 

c 

c 

111 

c 

c 


NUPMAXsPENO 

00 10 PaPSTARr/PBID-PSTEPfPSTEP 
IF (UNEGA«Gfi.(l«*P)} NUPHlRsP 
CONTINUE 

00 20 P«PENO/PSTART/-?STEPi 
IF (0NBGA.LT«(1«*P)) lUPMAXsP 
CONTINUE 


CONVERT TO FIND IP PARANETSR OF DATA STORAGE IN CASCET 
IP*0 

00 23 PsPSTART/PENOrPSTSP 

IP*IP^1 

IPPap 

IF (NUPrfXN.Eiri.lPP) IPHlNalP 
IF (NUPHAX.SO.IPP) IPHAX«IP 
CONTINUE 

P0KHAT(* NUPh1n«*/1>/* NUPnAX'^/IS) 

PORHATC XPlIN«*#I5r* XPNAX«*,IS) 


XSI6N>1 . 

RETURN TO LINE (111) TO REPEAT FOR DOWNSTREAM 
PROPAGATION **P*P*.**MP*Mw**«*n»***P**w*MWni 


6MNS«(ilT*MA*fi<IE6A«XSlSN*K4NS)/BBTASQ 


ML PAGE W 

QUWJTHf 






c 

c 



c 

} 

( 

c 


€ 


c 


I 


< 


c 

c 

c 

c 


I 

i 

t 









c 


c 

c 

« 

c 

c 

. c 

m 

■ c 


V- 


V 


r 

*« W 


*v 


' < 
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c 

c 


INITIALISE VARIABLES 

ISUMR IS ERROR COOS ACCUMULATOR FOR SESSEL WEIGHTING FUNCTION 

**S 


c 

c 

c 

c 

c 


PHNS IS RESULT OF OOUBLE INTEGRAL 

S«TR IS MbilGHTING SIGN FUNCTION IN RADIAL INTEGRATION 


PMN 8 S 0 . 

0ELTAR3(1.-SXSMAR)/<NRADN]-1) 

1SUMR30 

IUOT*2 

IOAIS 2 


C 

C 


SwTRs-U 


€*.«*.••• ••••START RADIAL INTEGRATION LOOP HERB ••••••r»**, 

C 

DO 901. IRNU>UNRADNU 


C 

C 

c 

c 

c 

c 

c 

c 

c 


RADIAL POSITION SEARCH FUR IHTWRPOlATIUN COORDINATES 


WANT RR(XRM1N)«LE«RRNU(IRNU).LS.KR(1RMAX) 
•••note: RRdl^RRVUil) 

RkCNRAUisRRNUlMKAONU) 


30 


M 0 

50 


IF (IKNU.EQ.I) GO TO 50 

IF (1RNU.E«.NRA0NU) GO TO 50 

IRMINsl 

IRMAXsNRAO 

DO 30 1R«1/NRA0-1,1 

IF lKRNO(IRNU)«GS.rtK(IR)| IKMIN«Ik 
CONTINUE 

DO 40 1R«NRA0,1#*1 

IF (RRNUllRNUO.LI.RRUR)) IRNAXaIR 
CONTINUE 


50 


70 


60 TO 70 

continue 

IKMIN«1 
IiiMAX*2 
60 TO 70 
CONTINUE 

1RM1N«NRA0*1 
1mNAX«NMAD 
GO TO 70 
CONTINUE 


C 

C 


^^NAL page t3 

WOR QiMuiv 


■"<1 

" 7 l 

1 . j 


► .-I 

vf 

■'« 


d 


1 

d 


■1 

ci 


t 

€ 


Cl 

C 


c 

a 


f » 

#' 


c 


Cr 

X 4 
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71 FORHATC fRMI0sVl5/' IRMAXs'/IS) 

72 fORNATC^ RR(IRMlNs%S10.4/' RRNU(NUs*,fil0.4/ ' RR(IR*^AX«^/E10.4) 

C 

C 

C BLADE GEOMETRY AT RADIAL STATION OF INYEGRATIOlt 

BsRRMIf f TRMfl) 

IF(R«Lb.Y6£UM(lUAT/l)) GO TO 201 
IOAT*IOAT*l 

IFUOAT«6T.NOAT} lOATsKDAf 

201 UELTAs<?*V<iSUM<IuAT/l))/C'.'*’<)MaDAT/lW6£0M(I0AT-l/l)) 

DO 210 IXs2^3 

210 XX(lX-l)syGeOM(IOAT#IX'>l)SLTA*(T6EOM(10AT,lX)-V6EON(IOAT-l,IX» 

C \ ‘ 

C 

BsXX(i>/2. 

THETA«XX<2) 

MRITB(21/7010) B/TMETA,R 

7BIf rORHAt(* B>OElB«4#* TiIEtAs*/£10.4#^ RsVei0«4) 

C 

c 

C • . ■ • ■ 

C ^ 

COSTHE«iCOS(THSTA) 

SINTKEsSINCTHETA) 

C 

C 

IF (IVOR.Ea.0) GO TO 4020 

c 

c 

C INTERPUUTE TO GET MEAN CIRCUMFERENTIAL MACH NUriRERS AT THIS R 
C 

c 

IP (R.L5«VELOCT(IOOT#l)) 60 TO 4001 
IDOT«IUOT»1 

IP aoaT*6T«M0ELO} I037«NrELn 

4 001 DEI TA»( R- VELOCVdOOT# 1) )/( VEuOCVC lOOT/ 1) -TELOC V(I90T-1/ 1)) 

X VB L«VB LOC V( lOOT/ 2) ♦OSLTA*:i VSLOCIf (1 UOT/ 2) *11 ELOCtf ( lUOT-1/ 2) > 

mtheta*xvsl*ma 

c 

4115 PORNATi* Rs*/S10*4/* MTHSTAa*,B10.4) 

C 

4020 CONTINUE 
C 

c 

C mYr is circumferential MACM nUarER op RAKE IMPINGING ON STATOR 
C ' 

NyN«MT*R-NA*ilOV/R 
IP <1Y0R.5M«1/ NYMaMT^R-NTNETA 
IP(I«UR.EU.0> mtmsta«ma*muy/r 

C ORIGINAL PAGE 18 
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C <nTtteUdALU>«ATURB.FUR>10 Fri 12-Odc-B0 2:09i>H 


C cm IS ARCTAiKClRCO^FCRSNriftL VELOCITY OF hAKE/AXIAL VELOCITY) 
CHIsATAN2(MYM,NA) 

COSCHI«COS(CHI) 

C 

c 

ZMOOsSIGHAC*U*.tGMMS*COSTdS-MM*SlRTtlE/R) 

C ■ • . 

C ■ ■ ' ■■ ■ 

C . .• 

C CMUROdlSE iliT&GRATlON USES BESSEL INTEGRATIOli METHOD 

c - ■-■■■• ", 

C •—CALCULATE BESSEL RE13HTIV6 FUNCTIONS 
C BESJ REQUIRES POSITIVE:' AR6UMEST 
XsASSCiilOO) 

CALL BESJCX/0fBJ0,EB/IRROil) 

C ALLfB ES J (X^ ICHORO, B J (BCaORD ) , EB, I RROR2 ) 
CALLl£aBSJ(X/NCtt0RD*l#BJ(iiCH0RU-U/EB#IRR0ft3) 
ISERR^IRRORl^IRRORZi^nRORa 
5400 FORKAf<^^'2MODs?;Bl0,4r^iiSERRs*/I5) 
lF(ZMdD*GT*0«) TO 5040 
C BJ0 IS EVEli FUNCTIJ)N> ADJUST SIGN ON OTHERS 
BJ(IICHORO)sBJCNCHORO)*<- 1.)**UICHORO 
BJ(MCttORD-l)sBJCBCHORO-l)*(-l.)**(NCHORO-l) 

5040 OONTIJiOE 

C USE RECURSION RELATION TO COMPUTE AND STORE BESSEL FUNCTIONS 
DO 2080 N=NCH3R0-1/2/*1 
BJIN-l)a -BJIS41}^2,*!I*BJ(N)/ZM00 
20S0 CONTINUE 
C 

c 

c 

c 

C INITIALIZE INTERPOLATION TO GET PRESSURE VALUE FOR THIS 
C FREQUENCY AND RADIAL POSITION FROM STORED DATA 
C 

C USE 4 POINT UIYARIATE INTERPOLATION. SEE ABKAMONITZ AND 

C STEGUN 25.2.6S 

C NOTE QQ AND PP ARE LESS THAN 1 

C 

C UETERMINE FRACTIONAL PARTS OF FKEti. AND RADIAL SPACING 

C 

PPs(RRnU(IRNU)-RR(IRMIN))/(RR(1RHAX)-RR(IRHIN)) 

GQs(0NE6A-NUPMlN)/(NUPMAX-NUPHlM) 

C 

c 

912 FORMAT!' PP«'rE10.4,' QQs'^SlB.A) 

C 

qHNS«(0./0.) 

C 

C *•«•«*»••*• BEGIN CH3R0HISS INTE3RATION LOOP HSRE •!**♦••*•*.* 

C 


0^ POOR QUALITY 


DO 220 IZsI^NChURD 





't) 

- 

C <MTHEOBALD>nA«IHB.?OR;10 Prl 12-Oec-80 2:09PM PAGE 1:8 

ki 

■M ^ 

- 

C 

C COMPUTE R SUB S/ T:1E MSISHTING FUNCTION AT T4E CHORDAL 


C STATION 



C NOTE THAT Zsl*.*lAOUNT hSLU« . 

fir 

r 

, |U 

C 


RRRSs( 0«,0.) 





“ 

DO 5000 lKOuNT=0/NCHOKD 

.■■■Jhi 


BMsl. 


‘ * 

IF (IKOUNT.EQ. 0.OR« IK3UNT*EQ. NCHORO) BNs0.S 

’ r 


AR6UslK0UNT*IZ*PI/NCil0RP . , 


1 

IfdKOUNT.GT.B) GQ T3 5019 

' .. 

1 

i * 

RRSsBM*Z*BJ0 ' 


! • 

GO TO 5020 

■! 

5010 cuntinue: 


\ . 

RRSsBM*Z*BJ(IK00RT)*:0SaR6U) 

X 


5020 CONTINUE 

*■ '•-c. . * 

► 

t 

ZsZ*I ' 



RRRSsRRRS#RRS 



5000 CONTINUE 

1 • 

c 

RRRSsRRRS*2.*l>I/NCUORO 

€' 


BHsl« 

•t', . • 


IF(IZ.EQ.NCH3R0) BNs0.5 



C 

C 

( 

' 

C INIEkPULATc PRESSUkE values in ^KEuUENCV INU RADIUS 



C 

1 


MCOUNTsMUSE 

¥-=( 1. -PP3*Cl«*WJ3*CASC£r(IZ/IRMIN/MCOUNT/IPMIN) 


' 

V5V^PP*(1.*MU)*CASCET(I2vIKMAX/HCOUNT^IPMIN) 



Y=y*(IQ*(l.-PP)*CASCST(IZ/IilMIN,MCOOMTrIPMAX) 
ysy«-PP*QQ*CASCET(IZ, IRMAX,MCOUNT/IPMAK) 



C 

c 


2 fOHMATC' CASCET='/2E10.4) 



C EVALUATE FINITE CiOROMlSE SUN TO APPROX. INTEGRAL 

r * 

c ; 


wnnst-:*krks*hn 


V i 

QNNSsQMNS*y*RRRS*BN 

c 

f 

5030 FORMATC IZ=',I5/' UMNSr='/2E10. 4) 


220 CONTINUE 


f. 

C 

c 




' 

7022 FORMAU' IRyUs',13/' QMSSs*/2E10. 4) 

C 

c 

♦ i' 

= t 

c 

c 

lSUMR5lSUMR4>iS£KR 

c 

i. ' 

‘ 4 

7 021 CONTINUE ORIGINAL PAGE IS 


■1 

OF POOR QUALITY 

c 

t 


c 


ij 
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c 

c 

CAsMM*C0STdC/ft4>GHNS*SlNTd2 

CBs(CAdS(WMNS)*PSISrO(IRMa)*CA*B>**2 ORIGINAL PAGE 18 

CD=((M*R)**2*-1.)*.*.5 of poor QUALITY 

C . 

C 

c • 

C ^ • 

FHNSsCB*CO*SUMT3t(MInbei#IRNU)/(R**2)/COSCIlI 

•c V ■■ ‘ - V • ••• , = 

c •" •- ' -- 

■HTRsl-«*SdtR/3. 

S0TRS-SWT8 

ir(lR.EQ.1.0R.IR.BQ*HSAd) WHTRstfftTR/2. 

c 

PRIISsPM«S«-l<Hf2*PM«S*0JLTA^/R 


7016 PORhAT(''.PHNS SO«f<R>s',E10.4) 

90t: COHimUE . 

C •••■ ■■ ■ 

€•****•••** END QF RAOIAL IMTEGRAnON LOOP (901) 


C 

CCsLR*LrHETA*LX*(SPS«*ddlDtH)**2 

C 

c 

SMN=((BETASa*NBLA0E*J(VAIIE)**2)*MT»flME3A*PMNS/KMNS*RA**3 

SMNsSMN/a.-SlGHAR**2)/(0MEGA*MT*-ASIG<»MA*JtMMS)**2 

SMRsSMN*CC*SIGMAC»S£.GHAC*(-XSIGM)/32./(PI**4) 

c 

c 

C MULTIPLY OUTPUT BY 2 (ADOS ♦30B) TU ACCOUNT FOR ENERGY 
C IN NEGATIVE FREQUENCY 
SMNsSHN*2. 

C 

KELPaKsSMN 

IPNRsl 

IF(RELPWR.EQ*0.) SO T3 915 
RELPRLs10.*AL3G10(ABS(RELP«R>} 

GU TU 920 
915 IPBRS0 

920 CONTINUE 

C 
CC 

c 

1P(XS16N.LT.0.) 63 TO 9000 
C 
C 

NR1TE(5,3000) 



C <MTHeOBALO>MAT(IRB.FOR;10 Frl 12-D6C-80 2:09PM PAGE 1:10 


3000 PORMAT('0UPSTREAM 

8101 FORMAT(' GAMMA M/0,SB s'rClB.8) 

HKITE(21/8102) SMN 

8102 FORMATC* REL. MODAL. SOUND POiER SPECTRAL DENSlTYs',S10.4) 
•RlT£(21/8$00) lER 
HRITE(21/5S00) ISUMR 

8500 FORMATC* SUM OF ALL ERRORS IN PSI CALCULATIONS «'/I53 - 
IFaP«R«Ew.0} GO to 970 
NRITE(5,8600) RELPRL 
GO TO 980 
970 CONTINUE 

WRITE(5,952) ‘ 

980 CONTINUE - 

8600 FORHAT(*' REL. SOUND PONER SPECTRAL DENSITY LEVEL (DB)s',E10.4) 
NRITB( 21/72001 : 

7200 FORNATC' END OF UPSTREAM INTEGRATION') 

XSIGNs-1.' r . 

SPNR(1)=RELPMR i 

< GO TO 111 
C . • , • 

RETURN TO LING 111 TO COMPUTE OOHNSTREAM PROPAGATION 
C»«*«***«*«*****ft*******«*********«************t*«r**************** 

c ■ ' • 

9000 NRITE(5/820N) ’ > ‘ 

8200 FORMATC'BOONNSTREAM') 

8201 FORMAT(' GAMMA M/N/SB ^:',n6.8l 
«K1T£(2 1/8202) SMN 

8202 FORMATC' REL. MODAL S3UN0 PONER SPECTRAL OENSlTYs',El0* 4) 
■RIT£(21/8400) lER 
•KIT£(21/S500) ISUMR 

5500 FORMATC' SUN OF ALL E.RRORS IN RS CALCULATIONS«'/IS) 

8400 FORMATC' SUM OF ALL ERRORS IN PSI CALCULATIONS s'/I5) 

IFCIPNk.EO.0) go Tu 950 
NR1TEC5/8600) RELPRL 
GO TO 960 
950 CONTINUE 

NkIIECS/952) 

952 FORMATC' SOUND POWER SPECTRAL DENSITY FOR MODEs0/UNEXCITED') 
960 CONTINUE 

SP«R(2)skELPwR 

wriTEC21/7202) 

7202 FOPMATC' END OF OOWNSTREAM INTEGRATION') 

RETURN 

END 


ORIGINAL PAGE IS 
OF POOR QUALITY 



SUBROUTINE ANRT 




Program finds the roots of the 
boundary value equation lor an 
annular duct. 


PRECEDING PAGE BLANK NOT TLMED 


74 


J* ^ . 


3 
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SUBROUTINE AMRT(M/NrSr EB/ SC/XMN, lEB, lEC) 


(AN)NULAR F3NCTI0N (R)Q3(T) 


PURPOSE 

START lilTH A GUESS SOLUTION FOR XMl 
AND GET A BETTER VA:.US FOR XMl. 
GUESS EACH HIGHER ORDER ROOT FROM 
XM(N^l) = XMN»3. 14159 
AND THEN REFINE IT TO GET THE (M/N) 
ROOT TO : F=P(JS*y-ifS*J) s 0 


ORIGINAL PAGE IS 
OF POOR quality 


lF(H.Ea.0.ANO.N.E3.1) GO TO 6 
XMN = M*3.14159 
DO 5 NNsl/N 
OX - .31415 
IS = (-1)**(HM*1) 

X : XMN«>3.14159 
J = 1 

c 

CALL ANFU(M,X,S,SB/FrIE3) 

DX = -ISIC(F*IS)*OX 
T£ = F 
C 

1 IF (ABS(F) EC) GO TO 3 

IF (J .GT. 100) GO TO 2 

C 

X = X4>DX 

CALL ANFJ(M,X,S/SB/FrIEB) 

C 

IF ((F*TS) .LT. 0.) OX = -DX/2. 
J = J*1 
TE s F 
GO TO 1 
C 

2 lEC = 1 

GO TO 4 

3 lEC s 0 

4 XMN s X 

5 CONTINUE 
RETURN 

6 CONTINUE 
1EBS0 
IECS0 
XHNS0. 

RETURN 

END 

•L 


I 

I 


4 


r 
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SUttRUUTiNE ANFU(H,X/S,£B/F/1EB) I 

ORIGINAL PAGE IS 

(AN)NULAR (?0)N:TI0M OF POOR QUALITY ^ 

PURPOSE 

EVALUATE TH2 DETEJMlNAUr F = P(JS*V-VS*J) 


IF (M .ME. 0) G3 TO 1 

CALL BESJC X/l^ZJ /SB ,iC3) 

CALL B£SJ(S*a/l/ZJS /Eb /I£4) 

CALL BESY( X/l/ZV / IE7) 

CALL BES¥(S*X/1/ZYS / IE8) 
lEB = 1E3«1S4«>IE74>IS6 
GO TO 2 
C 

1 CALL BESJ( X/M*1/BJN ,SB /ICU 
CALL 6ESJ(S*X/M-1/BJMS/SB /IE2) 

CALL BESJC X/M«>1/BJP /SB /IE3) 

CALL BESJ(S*X/M4>1/BJPS,SB /1C4) 

ZJ = .5*(BJM -BJP ) 

ZJS = .5*(bJHS-BJPS) 

CALL BESYC X/M«1/BYM / IE5) 

CALL BESY(S*X/M-1/BYMS/ IE6) 

CALL BESYC X,M^1/BYP / IE7) 

CALL BESVCS*X/H>1/BVPS/ 1E8) 

ZY = .5*CBVM -3YP ) 

ZYS s .5*CBVMS-BYPS) 

lEB = IE1»IS2<’IS34-IS4^I55^IE64.IE7+IE8 
C 

2 F = ZJS*ZY - ZJ*ZVS 
RETURK 

EMD 

‘‘L 


I 


) 
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SUBKOUTINE BSSJ ORIGINAL PAGE IS 

OF POOR QUAiriY 

PURPOSE 

COMPUTE THE J BESSEL FUNCTION 'OR A GIVEN ARGUMENT AND ORDER 
USAGE 

CALL BESJ(X,N,BJ/9/IER) 

DESCRIPTION OF PARAMETERS 

X -THE ARGUMENT OF Ti-IE J BESSEL FUNCTION DESIRED 
N -THE ORDER OF THE J BESSEL FUNCTION DESIRED 
BJ -THE RESULTANT J BESSEL FUNCTION 
D -REuUlREO ACCURACY 
lER-RESULTANT ERROR CODE WHERE 
IER=0 NO ERROR 
lERsl N IS NEGATIVE 
IERs2 X IS NEGATIVE OR ZERO 
IER-3 REQUIRED ACCURACY NOT OBTAINED 

IER-4 range of N compared TO X NO? CORRECT (SEE REMARKS) 
REMARKS 

N MUST BE GREATER THAN OR EQUAL TO ZERO, BUT IT MUST BE 
LESS THAN 

20«>10*X-X** 2/3 FOR X LESS THAN OR EQUAL TO 15 
904>X/2 FOR X GREATER THAN 15 

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

RECURRENCE RELATION TECHNIQUE DESCRIBED BY H. GOLDSTEIN AND 
R.M. THALER, 'RECURRENCE TECHNIQUES FOR THE CALCULATION OF 
BESSEL FUNCTIONS', M.T. A. C./V. 13, PP. 102-108 AND I.A. STEGUN 
AND M. ABRAMOWITZ, 'GENERATION OF BESSEL FUNCTIONS ON HIGH 
speed COMPUTERS', M.T. a. C.,V. 11, 1957, PP. 255-257 


SUBROUTINE BESJ(X,N,BJ,0,I£R) 
C 

BJs.0 

IF (X .NE. 0.) GO TO 9 
lER s 0 

IF (N •Ew* 0) BJ — !• 
RETURN 




J* 


* 





ooo o n o ooci 






c <HTiiEUBALU>IINKT.F 0R;3 Mot» 14-Ja.r 

c 

9 1P(N) 10,20/20 

10 lEKsl 

RETURN 

20 1F(X)30,30/31 

30 IER=2 
RETURN 

31 IF(X- 15. >32/32/34 

32 NTESr=20.<‘10.*X-X** 2/3 
60 TO 36 

34 MTBSI=90.»X/2. 

36 lF(N-NTEST)40/38/38 

38 IBRS4 

RETURN 

40 IERS0 

NlsN^l 
tfPRENs.U 

COMPUTE STARTIN3 VA:.UE 3F M 

IF(X-5. >50/60/60 
50 NAsX«>6. 

60 TO 70 

60 MAsl.4*X‘t>60./X 

70 Hb*N»IFIX(X>/4»2 

MZEROsMAX0(4A/M3> 

SET UPPER LIMIT OF M 

100 00 190 MsMZSRO/NMAX/3 

SET F(M>/F(M-l> 

FH1S1.0E-28 
FMs.0 
ALPHA S.0 

IF(M-(M/2>*2>120/110/120 
110 JTs-1 

60 TO 130 
120 JTsl 

130 M2sM-2 

DO 160 Rsl/42 
ff KsM*K 

BMKs2.*FL0Ar(MK>*FMl/X-FM 
FMsFNl 
FMl^BMK 

IF(Mil-M-l>15 0/140/15 0 
140 bJsbmK 

150 JTs-JT 

SalOT 


30 6;31PM PAGE 4jl 
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I 

I 

N 


i 
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UJ 

160 

ALPHA sAtPHA«'8MK*S 


m 

1* 


BMKs2.*FM1/X-PM 

ORIGINAL PAGE {3 


i c r 


1F(N) 180,170,180 

OF POOR QUALITY 

1 

if 

170 



m 

0r 

180 

ALPHA=ALPHA4>aMlC 





BJ-BJ/ALPHA 


I 



IF(ABS(BJ-B?REV)>ABS(D*BJ))200, 200, 190 


m 


190 

BPRSV-BJ 





IER=3 




2?e 

RETURN 





END 








i 

( 

( 



8 



j 


4 

I 

\ 
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ORIGINAL PAGE 
OF POOR QUALITY 


SUPROUriNE B2SY 
PURPOSE 

COMPUTE HE Y BESSEL FUNCTION FDR A GIVEN ARGUMENT AND ORDER 
USAGE 

CALL 3ESY(X,N,BY/I£R) 

DESCRIPTION 3F PARAMETERS 

X -THE ARGUMENT Of THE i uESSEL FUNCTION DESIkEU 
N -THE ORDER OF THE Y BESSEL FUNCTION DESIRED 
BY -THE resultant Y diSSEL FUNCTION 
lER-RESULTANT ERROR CODE WHERE 
IER=0 NO ERROR 
lERsl N IS NEGATIVE 
IER=2 X IS NEGATIVE OR ZERO 
IER=3 BY HAS iXCBSDEO MAGNITUDE OF 10**70 

REMARKS 

VERY SMALL VALUES OF X MAY CAUSE THE RANGE OF THE LIBRARY 
FUNCTION ALOC TO BE EXCEEDED 
X MUST BS GREATER THAN ZERO 
N MUST BE GREATER THAN OR E3UAL TO ZERO 

SUBROUTINES AND FUNCTION SUBPROGRAMS RSOUIRED 
NUriE 

METHOD 

RECURRENCE RELATION AND POLYNOMIAL APPROXIMATION TECHNIUUE 
AS DESCRIBED BY A. J.rt.MiTCriCUCK/'POLYNOMIAL APPROXIMATIONS 
TO BESSEL FUNCTIONS OF ORDER ZERO AND ONE AND TO RELATED 
FUNCTIONS'/ M.T.A.C./ V. 11/ 1957/PP. 96-88/ AND G.N. BATSON/ 

'A TREATISE UN ThE TnEiJRv OF BESSEL FUNCTIONS'/ CAMBRIDGE 
UNIVERSITY PPESS/ 1953/ P. 62 


SUBROUTINE BESY( X, N, BY/ lER) 

CHECK FOR ERRORS IN N AND X 

IF(N)180/10, 10 
10 IERS0 

IF(X) 190, 190/20 

BRANCH IF X LESS THAN OR SOJAL 4 


20 IF(X-4. 0) 40/40/30 



c 
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A 


ll 

ll 


c 

c 

c 


c 

c 

c 


I 


c 

c 

c 


COMPUTE Y0 AN3 VI FOR X GREATER THAM 4 


ORIGINAL PAGE 
OF POOR QUALITY 


30 Tl=4.0/X 
T2sTl*Tl 

P0«((((-.0000037043*T2>. 0000173565)*T2-.0000487613)»T2 
1 ♦.00017343)*T2-.001753062)*T2». 3989423 

«0a(( ((.0000032312*T2-. 30001:42073 )*T2 ♦.0030342468)*T2 
1 -.0000869791)*T2^.0004564324)»T2-. 01246594 

Pl-((((*00000424l4*T2-*00002 00920)* T24’.0000580759)*T2 
1 -.000223203)»r24>. 00292 182$ )*T2#« 3939423 

Q1*((((-.0000035594*T2>. 000ai622)*T2-.0000398708)*I2 
1 0001064741 )*.T2-.0006390400)*T2^. 03740084 

As2«0/SQRT(X) 
bsA*Tl 

C=X-.7853982 

Y0=A*P0*SIN(C)4-B*Q0*CQS(C) 

Yl=-A*Pl*COS(C)*«B*4ll*SlM(C) 

GO TO 90 


COMPUTE Y0 AN3 Y1 FOR X LESS THAN OR EQ3AL TO 4 

40 XX=X/2. 

X2sXX*XX 

T=ALOG(XX)<-. 5772157 
SUMS0. 

TERM=T 

Y0=T 

DO 70 L=l,15 
IF(' -l)5‘'^60/50 
50 SUh-SUM^1./FLOAT(L-1) 

60 FL=L / 

TS=T-SUM / 

TERM=(TERM*(-X2)/FL«2)*(1.-1./(FL*TS>) 

70 Y0=Y0»TERM 

TERM = XX*(T-.5) 

SUMs0. 

VlsTERM 

DO 80 L-2/16 

SUMsSUM4^1./FL0AT(L-l) 

FLsL 

FLlsFL-1. 

TS— T— SUM 

TERMs(T£RM*(-X2)/<FLl*fL))*((TS-.5/FL)/(TS+.5/FLl)) 
80 YlsYi^TERM 
P12S.6366198 
Y0*P12*Y0 
YU-PI2/X^Pl2*Yi 

CHECK IF ONLY Y0 OR Y1 IS DESIRED 
90 IF(N-l) 100, 100/130 




>5i >**. 
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RETURN EITHER Y0 OR T1 AS REQUIRED OR/GfNAL PAq^ 

100 IF(N)110^ 120/110 quality i 

110 avsyi 

CO TO 170 - 

120 BTsY0 ■ 

GO TO 170 

PERFORM RECURREN:e OPERAriONS TO FIND YM(X) 

130 YAsY0 
YB>Y1 
K=1 

140 T=FL0AT(2*K)/X 
YCsT»Y8-YA 

IF(AdS(YC)-1.7E33)145/14S/141 

141 IER:3 
RETURN 

145 KsK«>l 

IF(K-N)150/160/150 
150 YAsYB 
YBsYC 
GO TO 140 
160 BYsYC 
170 RETURN 
160 lERsl 
return 

190 IER-2 

return 

END 



I 

I 



-A ^ . 



SUBROUTINE CASC 


frogram computes the comolex 
pressure dtstrthution across 

turbulence!’^'* 


i 


f^KlCEDlNG PACE hU^rn NOT P.LMED 

I 



SUBROUTINE EIGEN 


Program computes the weighting 
factors for the eigen functions 
(mode shapes). 



C <.««TK'‘0OAL0>LTCrN.FnR?2 


FAGC 1 


■'on H-Jan-oi) 12; 19PM 


100 


10 

20 


22 

24 


SnCFOUTTNE; PI GES( MM,3TG‘*A?, X.4'J/ *- VN/BMi;, D/ lEK) 
DT.yp?;Sl'^f. IER(3) 

GO "'O 22 

N=yv 

IKV.f.T.P) f!=-M 
K’*r*JUS=TA?S(N-l) 

M^Lns=N+l 

X''SKU»‘=XMf.*SIG*nS 

S=STGWA’**2 

CALL 9EPJ (XyM/?;/'’.JV/D/IER(D) 

CALL PE3Y (XM*J,*r,RYv,TER(2)> 

CALL ?ESJ (XM*.HU2/:*/oJV.H/0/r£P(3)) 

CALL P*3Y (XMVH'J3/N/r,YM!I,I£?(4)) 

CALL E£SJ (X‘*‘J/yPLUS/5J»'r,0/IFR(5)) 

CALL PESY (Xy».'/M?LUS,RYMP/1ER(6)) 

CALL BESJ (XMS'/Myr\'US,BJM‘‘»/:/IER(7)) 

CALL PEPY (XV*^MMTN’US,SYM'*/TtS(P)) 

IP(V.GT.0) CO TO li)0 

BYh>''=>BYM^' 

B JP R r-'= ( nj *■!•'- PJ V P )/ 2 . 

BVpriv=(t.Yr'-BY«?)/2. 

JF( A3S(^JPRTM).LT.A'5S(3YPR1*0) '^CJ TO 13 
AyK=-BYPHlM/3JPtav 


BVN=1, 

GO TO 2« 

Aw.Vrl. 

PVN='BJ°KIM/BY?RI’^ 


r ARTi=( 1. -( MM/x •?;;)* *2 )*(am:»*3Jm+bm:;*3Ym) **2/(1. -s) 

PArtT2s(S-(M”/XM‘J)**2)*(Ay'I*5 jyh+B‘‘N*3YMH)**2/(l.-S) 

FAC'PUP = (PAPT1-PAR'"2)»*.5 

A'V;=A‘^N/FACTOP 

BmnsBvVFACTOP 


RETURN 

CCNTINU'' 

A‘'M=1. 

BMN=0. 

DO 24 J=l,8 

IFK(J)s0 

RETURN 
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END 


SUBROUTINE EPSD 


Program yields the inlet RMS 
turbulence Intensity. 


ORiGfNAi PAGE IS 
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SUBROUTINE THAT 


Program computes the Fourier 
transform of the spatial 
distribution of wake turbulence. 


pRECEOiNG PAGE B’- 


NOT FILMED 
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FUNCTION FHAT(FARG) 

FUNCTION YIELDS TIE F3UR12R TRANSFORM OF TH2 SPATIAL 
DISTRIBUTION OF ■A^C TURBULENCE VELOCITY FOR 
SUttKUUtiNE OuTURd 

DATA Pl/3. 14119/ 

NEED S«ITCd TU AkOIU UNDERFLOW UN EXPUNEnTI ATI UN : 
RANGE IS E»-38. 

As(FARC**2)/4,/PI 
IF(A.GT.d7.) GU TO 10 
BsEXP(-A) 

GO TO 20 

10 ds0. 

20 CONTINUE 

FHATsB 
RETURN 
dNU 


i 

>4 


ORIGINAL PAGE 13 
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I 

I 
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SUBROUTINE KERNEL 


Program computes the kernel 
of the Green’s function. 




« 

I 
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SUBROUTINE KE9NEL(X/Kr GAMM A/MR, H 2/ ERROR/ CKF) 

REAL K/MR 

complex £/CKf/AN/ANP/ANH/RN/.400T 

RM(AN)=3ETAR**2*H2/(2.*0»*2)*(AN**2-K**2)*CEXP(I*(AN+K*MR) 
1 *X)/((AN-GN*H1/0**2)*(AN^</MR)) 

DATA I/(0./l.)//Pf/3.14lD9//XMIN/.00l/ 

BETAR=S3RT(l.-MR**2) 

1F( ABS(X).GT.XMIN) GO TO 10 

CKF=BErAR/(2.*J>I)*CBXP(-I*^iETAR**2*jC*X/MR)»(l./X-I*K/MR 
1 *ALOG(ABS(X))) 

RETURN 

10 CONTINUE 

U=SUKT(H1**2>(B£TAR*h2)**2) 

R=0*S3RT(K**2«*(D*AL0C(ER.R3R)/(BSTAR*H2*X))»*2) 

N1=(GAMMA-R)/(2.*PI) 

N2-(GAMMA«>K)/(2.«PI) 

CKF=0. 

IF(X«ST.0.) GD TO 50 
DO 40 MSN1/H2 
GN=GAMmA-2.*PI*N 
Ss(K*0)**2-GN»*2 

XF(S.6E.0. ) R30T=-S3RT(S)*1BS(K)/K 
1F(S.LT.0.) R30T=I*SJRT(-S) 

ANM=(GN*nl-B£TAR*H2*R3UT)/0**2 

CKF=CKF»RN(ANM) 

40 CONTINUE 
RETURN 

50 CONTINUE 

00 70 M=N1/N2 

GN=GAMMA-2.*PI»N 

S-(K*0)**2-GN**2 

IF(S.GE.0.) H30T=-SURT(S)*ABS(lO/K 
IF(S.LT.0.) R30T=I»SQRT(-S) 

ANP=(GN»Hl+BErAR*H2*R30T)^D**2 

CKFsCKF-PN(ANP) 

70 CONTINUE 

CKFsCXF-8ETAR*.'*2*X/(2.»MR)‘'SlNH(8ETAR»*2*K 

1 ’^H2'MR)*CEX«»(-I*BSTAR**2*K*X/MR)/<CQSri(3SrAR**2*(C*ri2/MR)- 

2 caS(GAMMA*K*ril/MR)) 

RETURN 

END 


I 

I 
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SUBROUTINE PHITHH 


Progr? X computes the Fourier 
transform of the correlation 
function In the circumferential 
direction. 


94 
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PSGE 1 


FUh'CTTbf: PhITHri(APGUK2) 


PROGPA'' CALCUL', rrS THE FOUFIFS T?ANS'*0?V UF THE CORfiFLATION 
FUNCTlni. IN TH': AZIMUTHAL DIRECTION' AS A FUNCTIO’J OF 

I 

12/14/79 VERSION USES GAUSSIAN’ A’JTOCOR^ELATION FUNCTION. 

FORM FOLLOWS tOUATIOV 27 IN V.O. MAc?*^'S '*ROTOH I’JLET 
TUR3ULF.NCE** PAGE 10. 

DATA '’1/3.14159/ 

NE^D S'/ITCH TJ A’/OID OND^KFLO-i . ZXPOJtVTIATION. RANGE 
TS E+-38. 

A=ARGUH2**2 
8=A/FT 

1F(9.GT.87.) GO TO 10 
C=2.*'=’XP(-B) 

GO TO 20 
10 Cs0. 

20 CONTINUE 

PHITHHsC 

RETURN 

p\»n 
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SUBROUTINE PHIXHT 


. f 



Program calculates the Fourier 
transform of the correlation 
function in the axial direction. 
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FUKCTTON PHIXHKARfiUMl ) 

PROGRA*^ CALCUUTFS THE FOURIER TRAMS^’ORM OF THE CORRELATION | 

FUNCTICN IN THE AXIAL HIPECTION AS A FUNCTION OF 
NOKDIMr.NFIQNiL FPEOUENCY 

I 

12 / 14/79 V'^RSION USES GAUSSIAN AUTOCORRELATION FUNCTION. 

FQP« Ff'LLOvS EOUATTON 27 IN W.D. MARK'S "ROTO?. I’.'LET 
TURBULENCE" RAGE IP?. 


NEED SWITCH TG AVOID UNDFKFLO- ON EXPONENTIATION. RANGE 
IS E <-38 

DATA PI/ 3 . 141 F 9 / 

A = ARGU ’^**2 
B=A/PI 

IP(R.GT. 87 .) CO TG lU 
C = 2 .*'‘XP(-B) 

GC TO 2 B 

10 c=e. 

2i CQNTivlJE 

PHIXh-sC 
RETURN 
END 
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SUBROUTINE PRES 


Program generates the complex 
pressure distribution across 
the stator vane chord. 
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S’JERUlITTNE PR£3( ^!5,»'X,K/G»MMA,MR,H1/H2,MSFG/F^IER) 

REAL Y.,^R,KX 

, COMOLFX I/'aH/F/A/CK'* 

CGV.PLFX G/G51/G1/G2/E3 

0 IM!^NSI 0 N K( 13 ^»),^(l^!?/ 10 ^)/.V^( 13 (}), 3 ( 100 ) 

( OITA T/(O./l.)//F.RR'Drt/.0001//»I/3.14159/ 

DATA ( 3 (J),J= 1 / 10 :’)/ 130 * 1 . 3 / 

G(X) = (G? + Gl*X<>G2»X**i*G3*X**3)*CEXP(I*K*MR*X) 
i B(MSbE)=.5 

; BPTARaSQRT(l.-MP.»»2) 

i G'^=T*p2TA»*!f/(2.'*PI*MR) 

j , GlsBETAP»'<'*t2/(2.*PT )*(l./MR**2-3.5) 

i G7 = T.pETAR*!f**3/(4.*PT)'*(U/(2.*MP)-l./''R*»3) 

! G 3 s-B''TAR*K** 4 /( 12 .*PT)*( 1 ./MP** 4 - 1 ./( 2 .**^R*» 2 )- 3 . 125 ) 

I . DO 10 Msl/MSFG 

i X=CnS((''-.5)*Pl/M4£G) 

F(M)=KH*CEX^’(I*KX*X) 

, 10 CONTINUE 

N=MSEG 
on Ea h=1/N 
DC 5d 

S=-ALOG( 2 .) 

DO 40 IR= 1 /N 

I SsS-2.*P(IR)/TR*CnS((''-.5 '•TS*PT/N')*COS(PI*IR*L/N) 

1 ■ 40 CON'»’IN’U'' 

i APG=COS((V-, 5 )*PUN)-CCS(L*PI/S) 

i , CALL KEPNEL(APG,K,G 4 «VA,MF,Hl/il 2 /ERRQR/CKF) 

A(y,L) = ‘»(L)*{Cy;F+G(»RG)*(S-ALOG(A?S(A?G))))*PI/M 
50 CON'^INUP 

, CALL LEQTlC(A/MSEG,l 03 ,F/l/l 00 / 3 /VA/IER) 

RETURN 

END 
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SUBROUTINE RHODE 


Program computes the radial 
mode shape for an annular 
duct . 


<MTH£OBALD>RMaDE.F3P;2 Man 14-Jan-93 12:19?M 


FAG£ 1 



) 


i 



20 0 


r 


30 0 


bUoRUUTlAli. PrtOuE (MM/<,A:lN,dMN,PSl/D/ItRKJK) 
dlKSN’SION I2RROR(2) 

1P(X.EJ.0.) GD TO 33P 
FACTOP=l. 

M=MM 

IF(M.LT.0) GO TO 10? 

CONTINUE 

CALL BtSJ (X,*VBJ,D,IERR0R(D) 

CALL BtSr (X,M,B*/I£iv<JH(2)) 
PSIsFACTuR^CA'JN^BJ+BMS^By) 

RETURN 

Ms-M 

K=M/2 

IF((1.»M)/(2.).GT.(1.*K)) FACTCRs-1. 

GO TO 2 3J 

CONTINUE 

PSI=AkN 

IERROR(1)=0 

1ERROP(2)=0 

kETUKN 

END 


I 

I 
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SUBROUTINE SCALLR 


Program yields the turbulence 
length scale in the radial 
direction. 


102 








nooononn 


0 


-Xi 

C <yTHEU?Ar.D>SCALLn.fOR;6 ‘^or; 2^-Se?-a0 11:11?M P4G-: 1 

I 
I 

i 

K 

i 

OWG'NAL J5 

. OF POOR QUALFTY 


FUNCTTO*.' SCALLP(R) 

PHOGRA*^ CALCULATFS T.It TUK3ULE\'CE LENGTH 

SCALE IN THE RADIAL ni,<ZCTTa»‘ AS A FUNCTTON OF THE MEAN RADIUS. 
THF LENG-^H SrALE IS N.JVDIV.=‘NSlnNAL12'-D ON THE DUCT RADIUS. 

NOTE SIGvaP.LE.R.LE.1. 

12/21/79 VERSION USES A CUNSTAV’7 

P=C.H 0 

SCALLR=5 

RETURN 

END 




( 

( 

■ ( 
* ( 


I 

I 




0 



SUBROUTINE SCALLX 


Program yields the turbulence 
length scale in the axial 
direction. 



0 



C <KTH50?AT.D>SCALLX.F0R;4 Mon 29-Sep-B3 11:11P« PAGE 1 


FU*’CTION SCALLY(R) 

C 

I C PROGRA*' CALCULATES THE IVLET T'JRBULEfXE LENGTH SCALE 

C IN THE AXIAL DIRECTION AS A FU‘iCTION 0«^ THE vp.AN RADIUS. 
C LENGTH SCALE IS .VOEDIM'^I.SinNALTZED JN THE DUCT RADIUS. 

r c 

C 12/18/79 VEPSTO'! USES A CONSTANT 
C NOTE STG*'AP.LE.R.LE.l. 

I P=40. 

SCALLXsB 

RETURN 

T '•KD 


I 

I 

I 

) 

# 
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) 

) 

> 

) 

} 

} 

} 

> 

} 

$ 
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SUBROUTINE STHETA 


Program yields the turbulence 
length scale in the circumfer- 
ential direction. 





I 

X 

i 

I 

i 

1 

I 

f 

t 

S 


-I 


I 

i 

I 

i 

f 
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C <MTH?:0'?Ar>D>STnETA.FnR;4 Von 29-Sep-80 11:12PV 
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C 

c 

c 

c 

c 

c 

c 

c 


FMNCTIO" STHETA(R) 

PROGRAV CALCULATES THE INLET TUftHULENCE LENGTH SCALE 
IN THE AZIVU'^hAL DIRECTITf. AS A FU.VCTinN OF MEAN RADIUS. 
THE LENGTH SCALE IS NC’DIMENSlONALIZED 0?J THE DUCT RADIUS. 

DATA PI/3.141S9/ 

12/18/79 VEOSTON USES A CONSTANT 
NOTE SIG''AR.LF.K.LF.1. 

B=0.5 

STHFTA=5 

RETURN 

FND 
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PROGRAM MAPIN/ 
SUBROUTINE MAPPER 
(with sample execution) 


Program lists which duct modes 
will propagate for Inlet turbu- 
lence noise. 


c 


<MTaEU3ALD>MAPIK.FUH;2 Fri 29-Fet-80 10:34AH 


PAGE 1 



DIMENSION RDATA(20) 

REAL MT/MA 
C 
C 
C 

C INPUT VARIABLES TO SUBRJUTINE MAPPER FOR LISTING OF ALL 
C PROPAGATING MODES FOR TURBULENCE PROGRAMS AT A 
C GIVEN FREQUENCY 
C 

1001 FORMAT(G20.8) 

WRITE(5,2003) 

2003 FORMAT!' HUB RADIUS DIVIDED BY DUCT RADIUS =') 

RFA^(5,1001) SIGHAT. 

WRITE(5^2103) SIGMAR 
2ll’3 F0R’*AT(' SIGM/R = '^£16.8) 

C 

C 

aPlTE(5,2030) 

2030 FOR’*AT(' MT =') 

READ(5/1001) MT 
WRITE(5,2130) MT 

2130 FORMAT!' MT=',Elb.8) 

nRlIE(5,2031) 

2031 FORMAT!' MA =') 

P.£AD!5,1001) MA 
KR1TE!5/2131) MA 

2131 FORMAT!' MA ='/216.8) 

*RIT£!i,2037) 

2037 FORMAT!' ACCURACY OF BESSEL FN =') 

REAO!5,1001) EB 

»RITS!5/2137) EB 
2137 FORMAT!' EB='/E16.8) 

WRITE!5,2038) 

2038 FORMAT!' ACCURACY OF CONVERGENCE TO ROOT XMN =') 


REAC!S,1001) EC 
UR1TE!5/2138) EC 
2138 FORMAT!' EC='/E16.8) 
C 
C 

c 

c 

RDATA!l)=flT 

RJATA!2)=HA 

ROATA!9)=EB 

RDATA!10)=EC 


page 18 
quauty 


C 

C 

RDATA!5)=SIGmAR 


C 

C 


I 

I 

) 

I 

) 

) 

3 

> 

> 

) 

3 

3 

3 

t 

« 


% 


CALL MAPPER!RDATA) 

STOP 

END 


3 



f 


0 


C <MTHE03ALD>MA?PER.F0R;3 Fri 29-Feb-80 10: 26AM PAGE 1 


i 

i 

I 

I 

1 

I 


s 

I 


3 

k 

2 






"9 

A 


I 


3 


m 


9 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUbPJUTINE KAPPER(ROAIA) 
DIVENSIQK IER(3),P.DATA(20) 
REAL MT^MA 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PROGRAM LISTS ALL PROPAGATING MOJES FOR INLET AND tiAKE 
TURdULENCE programs without CALCULATING MODAL 
AMPLITUDES. USE THIS PROGRAM AS A PRECURSOR TO 
INTUR3 OR WATURB SEARCH ROUTINES TO ESTIMATE RUN TIME. 


1001 FORKAT(G20.8) 

*iRIT£(5/110) 

110 FORMAT!' NOISE I- PSQUENCT/SHAFT FREQUENCYs') 

RSAD(i/10fil) OMEGA 
R0ATA(8)=DMEGA 

115 FORMAT!' OMEGA-',E10.4) 

wRITE!5/115) RDATA!8) 

MT=RDATA!1) 

MA=RDATA!2) 

SIGMAR=RDATA!5) 

£B=RDATA!9) 

EC5RDATA!10) 


/ 


C 


XMAX=0MEGA*MT/!1.-MA**2)**-5 


c 

c 


2001 

C 

C 

C 

C 

C 

C 

c 

c 


i»RlTE!5,2001) XMAX 

FORMAT!' XMN!'^AX) FOR PROPAGATION ='/£16.8) 


START WITH PLANE WAVE MODE !0,1). COUNT UP IN N, 
UNTIL ALL POSSIBLE HIGHER MDOE** ARE CUT OFF. 


J=1 


THEN M 


Ms0 


C 

c 


C RESTART N COUNT HERS FOR NEW M 

C 

15 N = 0 

C 


I 

I 

1 

) 

> 

> 

) 

) 

} 

} 

} 

> 

> 

B 

I 

3 




} 






C <‘^Tri20dALD>yA?P£R.=‘0R>3 Pri 29-Feb-30 10:26AM 


PAGS l:l 


(t 


C 

c 

20 

C 

C 

C 

C 

C 

C 

C 

C 

c 


INCREMENT N 


ORIGINAL PAGE !S 
OF POOR QUALfTY 


«aBS=1ABS(M) 


CALL ANRT (MA8S,N/S1GMAR/EB/EC,XMN/IE9/I£C) 


IF MODE IS CUT OFF.- GO TO 6000 


C 

C 

C 

3000 


IF(XKN.GE.XMAX) GO TO 6000 


rtRIT£(5^3ee0) 

FORMAT( '0MODE DATA') 


*RITE(5,3001) OMEGA/M,N,XMN 

3001 FORMAT('0OMEGA='/E10.4,' M=',I3,' Ns'/I3/' XHN='/E10-4) 

1F(X»<N.EU.0.) GO TO 1000 
COFFRA=XMAX/XMK 
WR1TEC5/4000) COFFRA 

4020 FORVATC' CUT0'‘F RATIO FOR MOD£='/ S10. 4) 

GO TO 1005 
1000 continue 

#|R1TE(5 4005) 

4003 ■ FORMAT(' PLANE WA^E MODE: CUTOPF RATIO IS ♦ INFINITE') 

1005 CONTINUE 

WRITtCS 3002} 1E3 

30C2 FQR^'ATC' SUm'oF 82SSSL FUNCTION ERROR CODES ='/I3) 
*RIT£(5/3003) lEC 

3003 FORMAT!' ERROR CODE FOR CONVERGENCE TO ROOT XMN ='/I3) 

C 

C NOPyjLIZE MODS AMPLITUDE 
C 

CALL EIGEN (MABS/3IGMAR,XMN^AMN,BMN/EB/IER) 

C 

C 

hRlTE(5,3004) AMN^BMN 

3004 FORMAT!* AMN s'/El6.8, ' 3MN ='/Bl6.8) 
nRITS!3/3005) lER 

3005 FORMAT!' ERROR CODE FOR BESSEL FNS IN AMN AND BMN CALC s'/8I2) 
C 

C 

c 

c 

c 

c 


I 

I 


i 


i 

) 

) 

> 

) 

> 

) 

t 

i 


% 
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w 


C <MTH£0BALD>rtAPPE.R.F0R;3 Fri 29-Feb-80 10:26AM PAGE 1:2 


C 

c 

c 

C iO 

c 

c 


c 

c 


MMM=M 

NOT SAITCri SIGN OK M IF 
1FCM.EQ.0) GD TO 20 


M=0 


8300 


ARITE(5,d3ee) 

fORMAT('0M= 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SWITCH SIGN ON M 


GO TO 20 


M»^V,K/RDATA(8) 

'/I5,' N=',l3,' 


C 


OPIG.'NAL PAGE IS 
C'P POOR QUALITY 


QMEGA=',E10-4) 


C IF MODE IS CUTOFF, DECIDE WHICH MODE TO TRY NEXT. 

C 

6000 ;F(N.EQ.1) go to 7000 

c 

c 

NMAX=N-1 

wRITSCD^eaul) NMAX 

6001 FORMAT('0LARGEST PROPAGATING N FOR THIS M ='/I3) 
C 

C 

J=j+1 


C 

C INCREMENT H 
C 

K=H+1 
GO TO 15 
C 
C 
C 

C N=1 TO REACH THIS POINT 

7000 CONTINUE 
C 

C 

WRITE (5, 70 01) 

7001 FORMAK' NO MORE PROPAGATING MODES FOR THIS OMEGA') 

10 CONTINUE 

*RITE(6,7001) 

9001 FORMATv ' PROBLEM COMPLETED') 

RETURN 

END 


I 

I 




% 

) 

f 

} 

) 

f 

> 

} 

} 

$ 

I 

% 

} 
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Sample Execution of KAPIN/MAPPER 


0MAPPER 

HUB RADIUS DIVIDED BY DUCT RADIUS » 

• 484 

SIGHARs 0.48400000E-^00 
MT * 

.508 

HT= 0.50800000E+00 

HA s 

.323 

MA * 0.32300000E+00 
ACCURACY OF BESSEL FN » 

.0001 

EB» O.tOOOOOOOE-03 

ACCURACY OF C0NVER6ENCE TO ROOT XHN » 

.0001 

EC- 0.10000000E-03 

NOISE FRFOUESCY/SHAFT FREQUERCY* 

IS. 

ONEOAs .ISOOE-^02 

XNNIHAX) FOR PROPA6ATION = 0.80515728E+01 

NODE DATA 

OHEGA= .15C.£+02 M= 0 N= 1 XMH= .OOOOE+OO 

PLANE UAVE NODE: CUTOFF RATIO IS * INFINITE 

SUN OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR C0NUER6ENCE TO ROOT XNN > 0 

ANN s O.tOOOOOOOE^Ot BNN » O.OOOOOOOOE-fOO 

ER:<0R code for BESSEL FNS in AHN and BNN CALC s 0 0 0 0 C 0 0 0 

NODE DATA 

ONEGA* .15D0E>02 H* 0 N* 2 XNN* ,6205EfOt 

CUTOFF RATIO FOR NODE* .1298E+01 

SUN OF BESSEL FUNCTION ERROR COOES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN « -0.2A16A472E^0t BNN * 0.27171 760E-^0t 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

LARGEST PROPAGATING N FOR THIS N * 2 
XFRSAPR Floating underflow PC* 3100 

XFRSAPR Floatins underflow PC« 3146 


113 



>1 . 



MODE DATA 


OF PO 


OHEGA= .tSOOE+02 H= 1 11= 1 XMN* .1371E+01 

CUTOFr RATIO ^OR «0DE= .3873E+01 

SUN OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOP CONVERGENCE TO R2CT xnN = 0 

ARN » 0.15152J06E+01 BHH = -0.421 19447E*00 

ERROR CODE FOR BESSEL FNS IN ANN AND 6HN CALC =00000000 

H» -1 H= 1 0HE6A= .1500E+02 

MODE DATA 

ONEGA* .1500E+02 . 1 N= 2 XHN= .6390E+01 

CUTOFF RATIO FOR NODE* .<260E+01 

SUN OF BESSEL FUNCTION ERROR COOES - 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN = 0.1V356938E+01 BHN = O.322490S8E+O1 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC * 0 0 0 0 0 0 0 

H» -1 N= 7 ONEGA= .1300F+02 

LARGEST PROPAGATING N FOR THIS H * 2 

NODE DATA 

UHEGA* .1300E+02 N= 2 N= 1 XHN= .27O8E+01 

C'JTOFF RATIO FOR NODE* .2973E+01 

SUN OF BESSEL FUNCTION ERROR CODES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN = 0.20523722E+01 BMN = -0.42471 320E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC =00000000 

N» -2 N= 1 ONEGA* .1500E+02 

NODE DATA 

0NE6.1* .1300E+O2 N* 2 N» 2 XNN* .4920E+01 

CUTOFF RATIO FOR NODE* .1U4E+01 
SUN OF BESSEL FUNCTION ERRuR CODES » A 
ERROR CODE FOR CONVERGENCE TO ROOT XNN * ^ 

ANN » 0.36360436E+01 BNN = 0.74837043E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC =00000000 



OR/GINAL PACl ■ ‘ 
'*00R 


H« -2 Us 2 0HE3A« .1500E+02 
LARGEST PROPAGATING N FOR THIS H s 2 
nODE BATA 

ONEGAs .1S00E«02 H= 3 Ns 1 XNN= .3987E-»^0I 

CUTOFF RATIO FOR HODEs .2020E-»01 

SUN OF BESSEL FUNCTION ERROR CODES s 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN s 0.26023430E«01 BNN = -0.32S89376E-»00 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC sOOOOOOlO 

-3 N= 1 ONEGAs .1500E+02 

NODE BATA 

ONEGAs .1S00E«02 N= 3 N» 2 XNN= .7747E+01 

CUTOFF RATIO FOR HODEs .t039E*01 

SUN OF BESSEL FUNCTION ERROR COOES s o 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN s 0.3S705322E^01 INN * -0.8931 1 I62E^OO 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC >00000000 

Ns -3 Ns 2 ONEGAs .1S00E*02 

LARGEST PROPAGATING N FOR THIS N s 2 

NODE DATA 

ONEGAs .IS00E*02 N> 4 N« I XNNs .52O0E401 

CUTOFF RATIO FOR HODE> .1549E«01 

SUN OF BESSEL FUNCTION ERROR CODES s o 

ERROR CODE FOR CONVERGENCE TO ROOT XNN < o 

ANN s O.3133A392E«0t INN s -0.20930877E-»00 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC >00000000 

H« -4 Ns t ONEGAs .1500E+02 

LARGEST PROPAGATING N FOR THI^ N > ] 
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HODE DATA 




\ 


\ 


t 

I 


\ 


ONEGA: .1500E«02 A: S N- 1 XNN« .«355E«0f 

CUTOFF RATIO FOR N0DE> .I2A7E>0I 

SUN OF BESSEL FUNCTION ERROR COOES « 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN « 0 

ANN : 0.36t82370F>0l 6MN « -0.1 1?30907E*00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC >00000000 

N> -S N> 1 ONEGA: .1S00Et02 

LARGEST PROPAGATING N FOR THIS N > 1 

HODE DATA 

ONEGA: .150Vt+02 N» 6 N= 1 XNN* .7473E+0I 

CUTOFF RATIO FOR NODE= .I077E+01 

SUN OF BESSEL FUNCTION ERROR COOES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN : 0.40S42452E«0I BNN > -0.AlS90t01E-0t 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC >00000000 


H> -6 N: 1 ONEGA: .IS00E^O2 


i 

1 


I 


LARGEST PROPAGATING N FOR THIS N > 1 

NO NORE PROPAGATING NODES FOR THIS ONEGA 
PROBLc'N CONPLETED 
STOP 

END OF EXECUTION 

CPU TINE: 29.82 ELAPSED TINE: 3:4.03 
EXIT. 

-C 

BNAPPER 

HUB RADIUS DIVIDED BY DUCT RADIUS > 

.484 

SIGNAR: 0.48400000E>00 
NT : 

.508 

NT: 0.50800000E«00 
HA « 

.323 

HA > 0.32300000E*00 
ACCURACY OF BESSEL FN « 

.0001 

EB: O.IOOOOOOOE-03 
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ACCURACY OF CONVERGENCE TO ROOT INN > 

.0001 

EC* O.tOOOOOOOE-03 

NOISE FREQUENCY/SHAFT FREQUENCY* 

30. 

ONEGA* .3000E«02 

XNNdfAX: FOR PROPAGATION * Q.U103146E«02 

NODE DATA 

ONEGA* .3000E^02 N* 0 N* 1 XHNs .OOOOE+00 

PLANE UAVE NODE: CUTOFF RATIO IS * INFINITE 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR C0NVER6ENCE TO ROOT XNN * 0 

ANN * O.IOOOOOOOE^Ot INN > O.OOOOOOOOE-fOO 

ERROR COOE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

NODE DATA 

ONEGA* .3000E«02 N* 0 N* 2 XNN* .6205E«Ot 

CUTOFF RATIO FOR NODE* .2S9SE-»01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN > 0 

ANN * -0.24166472E+0I BNN » 0.27171700E+OI 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

NODE DATA 

ONEGA* .3000E>02 H* 0 N* 3 XNN* .1224E-»^02 

CUTt/FF RATIO FOR NODE* .tSUE^OI 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN * -0.24929737E*01 BNN » 0.47091 179E+01 

ERROR COOE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

LARGEST PROPAGATING N FOP THIS H * 3 

ZFRSAPR Floating underflow PC* 3100 

ZFRSAPR Floatins undirflov PC* 3146 


NODE DATA 

ONEGA* .3000E^02 H* 1 N« 1 XNN* .137tE«01 

CUTOFF RATIO FOR NODE* .117SE«02 

SUN OF BESSEL FUNCTION ERROR CODES * 0 
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ERROR CODE FOR C0NVER8ENCE TO ROOT XHN < 0 

ARM : 0.tStS2306E*0t IhN « >0.4211?4i7E«00 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC » 0 0 0 0 0 0 0 0 

H* -t Ns 1 OHEOAs .3000E«02 

NODE DATA 

ONEGAs .3000E*02 I N< 2 XHN= .639OE-^01 

CUTOFF RATIO FOR HODEs .2320E<f01 

SUN OF BESSEL FUNCTION ERROR COOES = 0 

ERRfR CODE FOR CONVERGENCE TO ROOT XNN » 0 

ANN s 0.1935A938E+0t INN > O.32269858E-^01 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC =00000000 

N= -f N= 2 OHEGAs .3000E^02 

NODE DATA 

ONEOAs .3000E«02 N* t N* 3 XNN« .1232E402 

CUTOFF RATIO FOR HODEs .130?Et01 

SUN OF BESSEL FUNCTION ERROR COOES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN = 0 

ANN s 0.4351 441 0E«0t BNN = 0.30726705E*01 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC >00000000 

N« >1 N> 3 ONEGAs .3000E«02 

LARGEST PROPAGATING N FOR THIS N > 3 

NODE DATA 

ONEGA* .3000E*02 N« 2 N> 1 XNN> ,2708E-^0t 

CUTOFF RATIO FOR NODE* .S94AE-»01 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN « 0 

ANN * 0.20S2S722E^01 BNN « >0.42471 320E*00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC >00000000 

N> -2 N* 1 ONEGA* .3000E^2 

NODE DATA 

ONEGA* .3000E>02 N> 2 N« 2 XNN« .6920E+01 

CUTOFF RATIO FOR NODE* .2327E-»01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 


-A ^ 
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ERROR CORE FOR CONVERSENGE TO ROOT XHM » 0 

ARM s 0.3^54063«E40t IHN - 0.74R37045E+90 

ERROR CODE FOR BESSEL FNS 7N ANN ANB IN^* CALC * 0 0 0 0 0 0 0 0 

M= -2 N< 2 0HE6A» .3000E*02 

HOBE DATA 

OHE6A» .3000E*02 H- 2 N* 3 XHN- .12S8E-^02 

CUTOFF RATIO FOR KOBE* .1280E^01 

SUM OF BESSEL FUNCTION ERROR COOES = 0 

ERROR CODE FOR CON i^IROENCE TO ROOT XMN > 0 

ANN « 0.443?2R6AE*01 INN » -0.290S9i13E>Ot 

ERROR COOE FOR BESSEL FNS IN ANN AND INN CALC *00000000 

N« *2 N« 3 0NE6A* .3000E«02 

LAR6EST PROPAGATING N FOR THIS N * 3 

NODE BATA 

ONEGA* .3000E«02 N« 3 N* t XNN* .3987E-^01 

CUTOFF RATIO FOR MODE* .4039E«01 

SUM OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN * 0.2A0234S0E^01 BNN * -0.32909376E-»00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

N* -3 N« 1 ONEGA* .3000E-»02 

NODE DATA 

ONEGA* .3000E+02 N« 3 N» 2 INN* ,7747E*01 

CUTOFF RATIO FOR MODE* .2070E-»01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVEROENCE TO ROOT XMN * 0 

ANN • 0.3570S322E«01 BNN « >0.09911 t62E-^00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

N* -3 N* 2 OMEGA* .3000E*02 

NODE DATA 

ONEGA* .3000E«02 N* 3 N» 3 XNN* .1301E<^02 

CUTOFF RATIO FOR MODE* .1230E^01 

SUM OF BESSEL FUNCTION ERROR CODES * 0 




0 
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ERROR CODE FOR CONVEROENCE TO ROOT XNN » 0 

ABN « -0.107544A9E+00 IMN « 0.530890ME+01 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC *00000000 

«* -3 N* 3 ONEGA* .3000E+02 

LARGEST PROPAGATING N FOR THIS H * 3 

NODE DATA 

ONEGA* .3000E«02 N« 4 N« t XNN» .S200Et01 

CUTOFF RATIO FOR NODE* .3097E«01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN « 0.3t33A392E*01 INN * -0.20030077E«00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

H« -4 N* 1 ONEGA* .3000E+02 

NODE DATA 

ONEGA* .3000E«02 H* 4 N« 2 INN* .0790E+01 

CUTOFF RATIO FOR NODE* .tS30E«0l 

SUN OF BESSEL FUNCTION ERROR COOES • 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN * 0.330AfA69E*01 BNN * -0.15149830E*OI 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

N* -4 N* 2 ONEGA* .3000E«02 

NODE DATA 

ONEGA* .3000E^02 N* 4 N* 3 INN* .1339E^02 

CUTOFF RATIO FOR NODE* .tf8SE-»0t 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN « 0 

ANN * 0.34317489E*0t BNN « 0.4O2T8O49E-»OI 

ERROR CODE ^OR BESSEL FNS IN ANN AND BNN CALC *00000000 

N* -4 N* 3 ONEGA* .3000E+02 

LARGEST PROPAGATING N FOR THIS N « 3 


i 

I 
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NODE DATA 

ONE6A« .3000E>02 N> 5 N» 1 XNN= .63SSE^0t 

CUTOFF RATIO FOR NODE* .2534E-^01 

SUN OF BESSEL FUNCTION ERROR COOES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN » 0 

ANN » 0.3A182370E+01 B.1N » -0.11930R07E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

H* -5 N* t ONEGA* .3000E^02 


NODE DATA 

ONEGA* .3000E«02 H= 5 N* 2 XNN* .9995E-*'0I 

CUTOFF RATIO FOR NODE* .161IE<f01 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN « 0 

ANN * 0.327898S2E401 INN * -0.tS982724E-^01 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC *00000000 

N* -S N* 2 ONEGA* .3000E^02 

NODE DATA 

ONEGA* .3000E^02 N* S N* 3 XNN* .1432E-»02 

CUTOFF RATIO FOR NODE* .1f29E-^01 

SUN OF BESSEL FUNCTION ERROR COOES « 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN * 0.S008787tE^01 INN * 0.160S1G47E-»01 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC *00000000 

N* <S N« 3 ONEGA* .3000£f02 

LARGEST PROPAGATING N FOR THIS N * 3 

NODE DATA 

ONEGA* .30V0E«02 N* 6 N* I XNN* .7A73E^01 

CUTOFF RATIO FOR NODE* .2tSSE*OI 

SUN OF BESSEL FUNCTION ERROR CODES • 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN « 0.403424S2E*01 BNN • -0.6IS90101E-01 

ERROR CODE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

H* -A N* 1 ONEGA* .3000E«02 
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MODE DATA 

0NE6A> .3000E^02 6 N* 2 XNN« .1127E«02 

CUTOFF RATIO FOR MODE* .142?E<^OI 

SU.1 OF BESSEL FUNCTION ERROR COOES = 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN « 0 

AHN * 0.34^4768SE^01 BHN * •0.142960S3E-^01 

ERROR CODE FOR BESSEL FNS IN AHN AND BHN CALC >00000000 

H* -6 N* 2 0NE6A> .3000E«02 

HODE DATA 

ONEGA* .3000E^02 N* 4 N* 3 XHN> .1S18E^02 

CUTOFF RATIO FOR NODE* .1061E401 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

AHN * 0.S19048iSE^01 BHN « •0.42382837E-^00 

ERROR CODE FOR BESSEL FNS IN AHN AND BHN CALC *00000000 

H* N* 3 ONEGA* .3000E«02 

LARGEST propagating N FOR THIS H > 3 

HODE DATA 

ONEGA* .3000E«02 H* 7 N* 1 XHN* .856SE-^01 

CUTOFF RATIO FOR NODE* .1880E-»01 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

AHN > 0.444784S0E«O1 BHN * -0.30IS9084E-01 

ERROR CODE FOR BESSEL FNS IN AHN AND BHN CALC *00000000 

H> -7 N* 1 ONEGA* .3000E-»02 

HODE DATA 

ONEGA* .3000E^02 H* 7 N* 2 XHN* .1257E-^02 

CUTOFF RATIO FOR HODE* .128IE-»01 

SUN OF BESSEL FUNCTION ERROR CODES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

ANN * 0.37674493E>01 BHN « -0.1 1381 721 E-^01 

ERROR CODE FOR BESSEL FNS IN AHN AND INN CALC *00000000 

H* -7 N« 2 ONEGA* .3000E^02 

LARGEST PROPAGATING N FOR THIS H * 2 


1 

1 






% 


J* 
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HODE DATA 

OMEGAS .3000E^02 H> 8 N* t XNN* .964l£t01 

CUTOFF RATIO FOR HOOEs .U70E«01 

SUH OF BESSEL FUNCTION ERROR CODES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN « 0 

ANN « 0.481 01 ?54E*01 BHN » -4.1462S833E*01 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC « 0 0 0 0 0 0 0 0 

H« >8 N« 1 ONEGA* .3000E^02 

NODE DATA 

OMEGA* .3000E«02 M> 8 N* 2 XNN* .138AE«02 

CUTOFF RATIO FOR NODE* .1162E-^01 

SUH OF BESSEL FUNCTION ERROR CODES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN * 0 

ANN « 0.4123S105E>01 BHN * -0.85984372E+00 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC *00000000 

N* '8 N« 2 ONEGA* .3000E-^02 

LARGEST PROPAGATING N FOR THIS N * 2 

HODE DATA 

ONEGA* ,3000i*02 H* f N* 1 XNN* .1071E-»02 

CUTOFF RATIO FOR NODE* .1504E-^01 

SUH OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN > 0 

ANN * 0.S1S13706E>01 INN * -0.6S35787AE-02 

ERROR CODE FOR BESSEL FNS IN ANN AND INN CALC *00000000 

N« -9 N* 1 ONEGA* .3000E«02 


NODE DATA 

ONEGA* .3000E^02 H* 9 N* 2 XNN* .1S12E’^02 

CUTOFF RATIO FOR NODE* .lOASE^OI 

SUH OF BESSEL FUNCTION ERROR CODES « 0 

ERROR CODE FOR CONVERGENCE TO ROOT XNN - 0 

ANN * 0.44743S24E401 BHN * -O.S9372922E>00 

ERROR CODE FOR BESSEL FNS IN AHN AND BNN CALC * 0 0 0 0 0 0 0 0 

N* -9 N* 2 ONEGA* .3000E^02 

LARGEST PROPAGATING N FOR THIS N • 2 
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NODE DATA 

OMEGA- .3000E^02 H* 10 N» 1 XHN» .1177E-»02 

CUrr^F RATIO FOR MODE* .1368E-»01 

SOh OF BESSEL FUNCTION ERROR CODES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN » 0 

ANN » 0.5A757873E+01 BNN * -0.303481 01 E-02 

ERROR COBE FOR BESSEL FNS IN ANN AND BNN CALC *00000000 

M« -to N* 1 ONEGA* .3000E-»02 

LARGEST PROPAGATING N FOR THIS N « 1 

NODE DATA 

ONEGA* .3000E1-02 N* 11 N« 1 XNN» .1283E>02 

CUTOFF RATIO FOR NODE* .12SAE-f01 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

ANN * 0.57877752E+01 BHN * -0.13177058E-02 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC *00000000 

H* -11 N* 1 ONEGA* .3000E^02 

LARGEST PROPAGATING N FOR THIS H * 1 

NODE DATA 

ONEGA* .3000E4>02 H* 12 N* I XHN* .1388E^02 

CUTOFF RATIO FOR NODE* .lUOE^OI 

SUN OF BESSEL FUNCTION ERROR CODES > 0 

ERROR CODE FOR CONVERGENCE TO ROOT XHN * 0 

ANN > 0.A0893310E^01 BHN * -0.63729882E-03 

ERROR CODE FOR BESSEL FNS IN AHN AND BHN CALC *00000000 

H* -12 N* 1 ONEGA* .3000E«02 

LARGEST PROPAGATING N FOR THIS N * 1 

NODE DATA 

ONEGA* .3000E402 N» 13 N* 1 XHN* .1493E4>02 

CUTOFF RATIO FOR NODE* .10798401 

SUN OF BESSEL FUNCTION ERROR CODES * 0 

ERRUR CODE FOR CONVERGENCE TO ROOT XHN « 0 

ANN * 0.A3824333E401 BNN * -0.181305v1E-03 

ERROR CODE FOR BESSEL FNS IN ANN AND BHN CALC • 0 0 0 0 0 0 0 0 
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H* -13 N« 1 0HEGA> .3000E^02 

LARGEST PROPAGATING N FOR THIS II - I 
HODE DATA 

ONEGA> .3000E^02 14 N» 1 XHN- .1S98E+02 

CUTOFF RATIO FOR NODE* .tOOSE^OI 

SUN OF BESSEL FUNCTION ERROR COOES * 0 

ERROR CODE FOR CONVERGENCE .0 ROOT XNN » 0 

ANN * 0.AAA;67?7E«01 BAN « >0.t0S50421E-03 

ERROR COBE FOR BESSEL FNS IN ANN AND BNN CALC • 0 0 0 0 0 0 0 0 

M* -14 N> 1 0NE6A» .3000E-^02 

LARGEST PROPAGATING N FOR THIS N > 1 

NO HORE PROPAGATING NODES FOR THIS ONEGA 
PROBLEN CONPLETED 
STOP 

END OF EXECUTION 

CPU TINE: 1:40.60 ELAPSED TINE: 8:4.24 

EXIT. 



